программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x> 0 and y> 0 then
writeln (1 chetvert);
end;
if x< 0 and y> 0 then
writeln (2 chetvert);
end;
if x< 0 and y< 0 then
writeln (3 chetvert);
end;
if x> 0 and y< 0 then
writeln (4 chetvert);
end;
end.
Ответ дал: Гость
последнее будет неверно тк получается что для всех 99-и оно работает, а для себя- нет что противоречит условию именно поэтому девяносто девятое будет верно
Ответ дал: Гость
var a: array [1..100] of real; i,n: integer;
t: real; begin randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln; end;
t: =a[1]
for i: = 1 to n do begin a[i]: =a[i]/t ; write(a[i]: 4); if i mod 10=0 then writeln; end; end.
Популярные вопросы