Составьте программу либо через функцию или можно через процедуру: 1)Вычислить сумму квадратов простых чисел,лежащих в интервале (M,N). 2)Вычислить сумму простых не превосходящих заданного числа N.
Ответы:
05-05-2014 15:47
varn,m:integer;procedure summa(a,b:integer );var res:integer;beginwhile a<=b dobeginres:=(a*a)+res;a:=a+1;end;writeln(res);end;beginreadln(n,m);summa(n,m);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу либо через функцию или можно через процедуру: 1)Вычислить сумму квадратов простых чисел,лежащих в интервале (M,N). 2)Вычислить сумму простых не превосходящих заданного числа N.» от пользователя Ленчик Рудык в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!