Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
(1) цирк (2) пирк (3) пирзприз (1) волк (2) солк(3) солн слон (1) стук (2) (м) мтук(3) (ь) мтуьмуть (1) крот (2) (м) мрот(3) (г) мрогморг
см файл
за январь нет оплаты так как нет предыдущих показаний
excel таблицы не прикрепляются
var
i,s: integer;
begin
s: =0;
for i: =2 to 5 do
s: =s+i*i;
writeln(s);
end.
1)
a,b,x,y: real;
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
a: =y;
b: =x;
end
else
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
2)
d,m: integer;
readln(d,m);
if (d< 1) or (d> 31) then writeln ('день введен неверно');
if (m< 1) or (m> 12) then writeln ('месяц введен неверно');
3)
a,b,c: integer;
readln(a,b,c);
if (a> b) and (a> c) then writeln(a);
if (b> a) and (b> c) then writeln(b);
if (c> a) and (c> b) then writeln(c);
Популярные вопросы