Какой именно их много и я много знаю
I=1
while i<=30:
if i % 2 == 0 and i % 3 == 0 and i%4!=0:
print(i)
i+=1
Во free pascal?
Если хоче порисовать то скачай Basic
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)
Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.