Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во положительных чисел среди чисел a, b, c .
5-9 класс
|
Program abc;
var a, b, c:real;
var i: integer;
Begin
writeln ('Введите число а');
readln (a);
writeln ('Введите число b');
readln (b)
тоже самое и для с
i:=0
if a>0 then I:=i+1
тоже самое только для б и с
writeln ('Число положительных чисел = , 'i);
End.
var
a,b,c,n,i:integer;
begin
n:=0;
readln(a);
readln(b);
readln(c);
if a>0 then
n:=n+1;
if b>0 then
n:=n+1;
if c>0 then
n:=n+1;
writeln('kolichestvo polozitelnich=', n)
end.
Другие вопросы из категории
строку браузера,чтобы попасть на данный сайт:
1)http
2)www.
3)://
4)urfu.ru
5)acm.
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
1...Записать на языке паскаля: Условие 1) -3<x<=(меньше или равно)10;
2)x (не равно 0) ,у(не равно 0);
3)x(принадлежит) [-10;0);
4)величина x не кратна 3:
2.Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит на экран.
3.Введите три числа a,b,c.Найдите сумму двух наибольших из них.
ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ ВАЖНОЕ ЗАДАНИЕ,ОТВЕЧУ ВЗАИМНОСТЬ...)
Огромное спасибо за ранее...
Необходимо посчитать элементы массива значения которых кратно 2. Заменить элементы массива значения которых отрицательны,заменить числом 111
Напишите программу пожалуйста на языке паскаля
ляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км\ч, выведите YES, иначе выведите NO.
Программа получает на вход число проехавших автомобилей N (1=<N=<30), затем указывает их скорости. Значение скорости не может быть меньше 1 и больше 300.
Программа должна сначала вывести максимальную скорость, затем YES или NO.
Написать на языке Паскаль
Пример работы программы: (смотри во вложениях)