Задание:
Нужно написать программу с помощью двух циклов найти квадрат суммы всех натуральных чисел от 5 до 10
Решение:
Program PR1; uses crt; var i,b: integer; beginclrscr; b: =0; for i: =5 to 10 do b: =b+i; writeln (sqr (b); end. Program Pr1; uses crt; var i,b: integer; beginclrscr; i: =5; b: =0; repeatb: =b+i; i: =i+1; until i>10; writeln (sqr (b); end.
Знаете другой ответ?