1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Python 3
a = int(input())
b = int(input())
print(*list(range(a, b + 1)))
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
Vit*.txt
Неужели так сложно?
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;