Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
begin
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
end.
первую по подробней расспишите
(5)aabaabcaabaabcdaabaabcaabaabcde(6)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg
на 64 месте: а
var x: real; begin read(x); writeln(round(x)); end.
varr,h,s: real; beginread(r); h: =2*pi*r; s: =2*pi*sqr(r); writeln('площадь круга: ', s: 5: 2); writeln('периметр окружности: ', h: 5: 2); end.
Популярные вопросы