НЕ (число четное) = (число не четное)
Нам нужно, чтобы выражение было ложно, то есть число не может быть четным и должно быть >=70
Ответ 72
А ты не знаешь ответы по олмпиаде (географии)?
Ответ:
var a: integer;
x:real;
begin
a:=5;
x:=0.75;
while x <= 1.5 do
begin
writeln('x = ',x,' y = ',a*sqrt(x):0:3);
x:=x+0.5;
end
end.
Посмотри, такой?
program z1;
uses GraphABC;
begin
line (100,100,200,100);
line (200,100,200,200);
line (200,200,100,200);
line(100,200,100,100);
line (150,50,250,50);
line(250,50,250,150);
line(250,150,150,150);
line(150,150,150,50);
line(100,100,150,50);
line(200,100,250,50);
line(100,200,150,150);
line(200,200,250,150);
<span>end.
</span>