Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
var
x,y: real;
begin
readln(x);
y: =7*sin(x)*sin(x)-0.5*cos(x);
writeln(y);
end.
a: integer;
readln(n);
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
трех зайцев по углам, двоих вдоль стен
Популярные вопросы