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.
Спасибо
Ответ дал: Гость
1695-1696 – пётр первый делал свои знаменитые азовские походы.
1703 – пётр первый основал санкт-петербург. событие произошло 16 мая.
1709 – была полтавская битва, она произошла 27 июня.
пе́рвая мирова́я война́(28 июля 1914 — 11 ноября 1918 гг)
Ответ дал: Гость
а если число
var n,i,p: integer;
s: string;
begin
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
Популярные вопросы