Устройствами ввода являются:
1-<span>Сканер
2-</span>Клавиатура
3-Веб-камера
4-<span>Мышь</span>
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Отсутствовали 30лет всего прилетело:21-22
У зеленых детей: 0
Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.