Помогите пожалуйста!( Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)
Ответы:
18-02-2016 06:59
var sum:longint;i:integer;beginsum:=0; i:=1;repeatsum:=sum+i*i;i:=i+1;until i>100;writeln(sum);end.var sum:longint;i:integer;beginsum:=0;for i:=1 to 100 dosum:=sum+(i*i);writeln(sum);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите пожалуйста!( Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)» от пользователя Юлиана Гущина в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!