Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
для 4 символов:
2*2*2*2=16
для 5 символов:
2*2*2*2*2=32
для 6 символов:
2*2*2*2*2*2=64
16+32+64=112
основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).
vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.
Популярные вопросы