Ты написал вместо "begin" bedin. И за константу Pi брать не надо. В системе Pi уже есть, поэтому начальные значения ей давать не нужно. У тебя программа должна выглядеть вот так:
program n_2;
var r, c, s: real;
begin
writeln('Вычисление длины окружности и площади круга');
write('Введите r>>');
readln(r);
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.
Ответ:
Я думаю, чтоФранция - 25°C.
Ответ:x=12 y=0
x=6+6+4+0-4+0+0+2+2-4=12
y=0+0+0+4+0-4+4+2-2-4=0
Вот так у меня получилось
Ряд 2,4,6,8... является арифметической прогрессией с разностью d=2, и первым членом a1=2
формула суммы первых n членов:
в данной задаче:
поэтому при составлении программы можно обойтись без циклов
программа:
Program n1;
var n: integer;
begin
readln(n);
write(n*n+n);
end.
Школьники получили 2 информации
1)что кто-то плавает где дорожка номер 1
2)что кто-то плавает на дорожке номер 4