Словами:Переменные S, a,b, i: integer;
ВВОД
a=33; b=66;S=N1.
Цикл по i от a+1 до b делать S=S+N;
Да! может содержать вложенные каталоги
1) var a,b,d,e,c,k,l,f:integer;
begin
read(a);
b:=a mod 10;
c:=a div 1000;
k:=a mod 100;
e:=k div 10;
l:=a div 100;
d:=l mod 10;
f:=b*c*e*d;
write(f);
End.
2)зачерпнуть 8л, вылить 3 л в ведро ёмкостью 3л, вылить из ведра 3 л, пережить из первого 3л, вылить 3 л, долить оставшиеся 2 л, наполнить первое ведро, долить литр во второе ведро. и того в 1 - 7л, во втором - 3.
1. x=2 y=5 t=5
2. a=3 b=3
3. a=4683 b=4680
4. b=189 a=71
5. b=17 a=9
6. b=19 a=11
7. b=14 a=7
Var
i,n: integer;
a:real;
begin
n := 1;
readln(i);
while n <= i do
begin
a:=n/(n*n);
n:=n+1;
writeln(a);
end;
end.