Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
Var x,y,z:intefer;
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x <span>mod5=0) then writeln(x);
</span>if (y <span>mod5=0) then writeln(y);
</span>if (z <span>mod5=0) then writeln(z);
</span>end.
1. 24
2. Данный массив не может существовать, и данная инициализация вызовет ошибку, поскольку масив может задаваться только позитивными числами
3. Она выведет на экран 0 -1 -4 и закончит работу