Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в цикле sum [i]: =sum+mas[i,j];
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
var
i,n: integer;
begin
read(n);
for i: =0 to 3 do
writeln (4*n-i);
end.
x,y: real;
n: =1;
x: =1;
y: =1;
for i: =1 to 5 do
n: =n*i;
x: =-1.5*x;
y: =y*(x+1/n);
end;
writeln(y: 15: 5);
Популярные вопросы