файл с исходным текстом программы на паскале должен иметь расширение pas.
Ответ дал: Гость
program summa;
uses crt;
var i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.
вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину
Популярные вопросы