программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠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.
Ответ дал: Гость
(a*h)+(b*h)+(a*h)+(b***h3)
или
2*(a*h)+2*(b***h3)
если на 1 кв метр 200 грамм то
(2*(a*h)+2*(b***h3))*200= ответ будет в граммах
расход обычно указывается на кв метр : )
Ответ дал: Гость
var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.
Популярные вопросы