Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
Решение на языке Pascal:
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с цикла просуммируем все числа от 20 до 30.
Представим таблицу в виде: (см. Рис. 1) Получаем уравнение 8 + b1 + 4 = 2*b1 + (b1+2) + 4 Отсюда: b1 = 3. Получаем (см. Рис. 2)
Далее, заметим, что сумма по горизонтали и по диагонали равна 15. Заполняем таблицу (см. Рис. 3)
ответ: С2 = 9
Решение 2.
Заданным свойством (иметь одинаковую сумму по горизонталям, вертикалям и диагоналям) обладает единственный МАГИЧЕСКИЙ КВАДРАТ (не учитывая его повороты и отражения относительно осей). Это магический квадрат 3х3 с магической суммой 15 (см. Рис. 4)
Если дальше завершить программу, то получим это: program HelloWorld; function ez(a: longint): boolean; var c: integer; begin ez := a >= 2; for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false end; var i, k: integer; num: array [1 .. 100] of integer; begin for i := 0 to 99 do num[i+1] := i + 1; k := 0; i := 1; while k < 7 do begin if ez(num[i]) = true then k := k + 1; i := i + 2; end; write(num[i-2]); end. ответ 19
Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
Решение на языке Pascal:
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с цикла просуммируем все числа от 20 до 30.
var
i, s: integer;
begin
s := 0;
for i := 20 to 30 do
s := s + i;
writeln(s);
end.