компьютер является надсистемой для компьтерных программ.
Ответ дал: Гость
32 - вопроса, 32 - ответа
Ответ дал: Гость
var a: array [1..9] of real;
s,p: real;
begin
p: =1;
s: =0;
for i: = 1 to 9 do
begin
read(a[i]);
s: = s+a[i];
p: =p*a[i];
end;
writeln("summa=",s);
writeln("srednee arefmeticheskoe=",s/n);
writeln("proizvedenie=",p);
end.
Ответ дал: Гость
Program is_ev_2d; var n: integer; begin write('введите число: '); readln(n); if (n mod 2 = 0) and (n > 9) and (n < 100) then writeln(n, ' чётное двузначное') else writeln(n, ' не чётное двузначное') end.
Популярные вопросы