№ 1) Найти площадь поверхности куба со стороной а.
№2) Написать алгоритм нахождения максимального среди четырех целых чисел.
№3) Среди чисел а, b, c определить количество положительных.
См. картинки.
Объяснение:
№1) Определяем целые переменные S, a
Пользователь вводит значение переменной а
Расчёт поверхности по формуле S = 6*a^2 присваиваем переменной S
Вывод переменной S
№2) Здесь определение наибольшего числа осуществляется при разветвляющегося алгоритма:
Если [условие выполняется], то [следует действие 1], иначе [действие 2].
№3) Операция mod находит дробную часть введённого числа.
Например, если 23 : 2, то 11 - целая часть, 0,5 - дробная.
Запись а mod 2 = 0, означает, что программа сравнивает остаток с нулём. Если остаток - нуль, то число чётное (делиться на 2 без остатка).
Записываем значение в переменную i, увеличивая счётчик.
№ 1) Найти площадь поверхности куба со стороной а.
№2) Написать алгоритм нахождения максимального среди четырех целых чисел.
№3) Среди чисел а, b, c определить количество положительных.
См. картинки.
Объяснение:
№1) Определяем целые переменные S, a
Пользователь вводит значение переменной а
Расчёт поверхности по формуле S = 6*a^2 присваиваем переменной S
Вывод переменной S
№2) Здесь определение наибольшего числа осуществляется при разветвляющегося алгоритма:
Если [условие выполняется], то [следует действие 1], иначе [действие 2].
№3) Операция mod находит дробную часть введённого числа.
Например, если 23 : 2, то 11 - целая часть, 0,5 - дробная.
Запись а mod 2 = 0, означает, что программа сравнивает остаток с нулём. Если остаток - нуль, то число чётное (делиться на 2 без остатка).
Записываем значение в переменную i, увеличивая счётчик.
1)
const t=3.14;
var R,P:real;
begin
writeln('Введите радиус окружности');
readln(R);
P:=2*3.14*R;
writeln('P=',P);
readln;
end.
2)const t=3.14;
var R,S:real;
begin
writeln('Введите радиус окружности');
readln(R);
S:=3.14*sqr(R);
writeln('S=',S);
readln;
end.