Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
Var s,i,a:integer; //объявляем необходимые переменные
begin
s:=0; //изначально сумма равна 0
write('Введите 10 чисел через enter '); //запрос 10-ти чисел
for i:=1 to 10 do begin //с помощью цикла вводим числа
readln(a);
s:=s+a; // вычисляем сумму(смысл цикла уж не буду расписывать)
end;
write('Сумма 10-ти чисел = ',s); //выводим на экран искомое значение
<span>end.</span>
A.колонка.
Б.сервер.
В.монитор.
Г.сканер.
Лишное слово сервер.
Все остальное - устройства компьютера.А сервер -компьютер.
Var
c:integer;
L,Lm:real;
begin
Writeln('Укажите код единицы измерения');
Write('(1- дм, 2- км, 3- м, 4- мм, 5- см): ');
Read(c);
Write('Укажите длину в выбранных единицах: ');
Read(L);
case c of
1:Lm:=L/10;
2:Lm:=L*1000;
3:Lm:=L;
4:Lm:=L/1000;
5:Lm:=L/100
end;
Writeln('Это составляет ',Lm,'м')
end.
Пример работы программы
Укажите код единицы измерения
(1- дм, 2- км, 3- м, 4- мм, 5- см): 4
Укажите длину в выбранных единицах: 126
Это составляет 0.126м