Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s: =0; for i: = a to b do s: =s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
var
n,i,z: integer;
readln(n);
for i: =1 to n do if n mod i=0 then inc(z,i);
writeln(z);
(1 + 2): 3 = 1
1 * 2 + 3 - 4 =1
((1+2) : 3 + 4) : 5 =1
1 * 2 - 3 : (4 +5- 6) =1
1 * 2 + (3 + 4 +5) - (6 + 7) =1
((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1
а-1; мама-4; весна-5 - количество букв
а-1; шея-2; мама-2; огурец-3 - количество гласных
а-0; шея-1; мама-2; огурец-3 - количество согласных
Популярные вопросы