Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
это же РЕШ
ставь на бум а он тебе посветит что правильно а что нет
я там мкзыку и русский так проходила
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.
а)400*2,5=1000кб
б)64: 2,5=25,6=25(страниц)
в)нужен диск cd-r ,cd-rw
Популярные вопросы