Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Program p1;
var a:integer;
begin
writeln('Введите число:');
readln(a);
writeln('Остаток:',(a mod 7));
<span>end.</span>
1000, 2000, 3000, 4000, 5000, ...
S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131
Незнаю просто одно слово НЕЗНАЮ