Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Точный элемент экрана дисплея это:
пиксель.
1мин = 60 сек. = 60 (Сек). читает 160 символов.
60*30=1800(Сек.)-
1800*160 = 288000 (Симв.)читает за 30 мин.
Ответ:288000 Символов читает ученик за 30 мин.
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.