Question

Записать программу на языке Паскаль

Answer 1

var rost,N,count,k:integer;
begin
readln(N);
for k:= 1 to N do
begin
readln(rost);
if rost >=170 then
count:=count+1;
end;
writeln(count);
end.

Answer 2

var rost,N,count,k:integer;
begin
readln(N);
for k:= 1 to N do
begin
randomize(rost);
rost:=random(150,200);
writeln(rost);
if rost >=170 then
count:=count+1;
end;
writeln(count);
end.

Answer 3

program sport170;
var n, i, r:integer;
begin
n:=0;
for i:=1 to 50 do begin
r:=random(50)+150;
if r>170 then n:=n+1;
end;
writeln ('Количество претендентов = ', n);
end.