Var a,b,c: real; n,i: integer; beginwrite('ввидите n='); readln(n); for i: =1 to n do b: =b+(2*n+1); c: =1; for i: =1 to n do c: =c*(2*n+1); a: =b/c; writeln('a=',a); end.
Спасибо
Ответ дал: Гость
100*1000000/8=12500000 байт в секунду
Ответ дал: Гость
var
a: integer;
begin
readln(n);
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
end.
var
a: integer;
begin
readln(n);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
Популярные вопросы