Решая задачу важно помнить правила из математики: нечетные числа можно найти используя формулу 2*n-1, и подставляя числа от 1 и более.
Вот текст программы:
program ex26;
uses
Crt;
var
i: integer;
begin
ClrScr;
FOR i:=1 TO 5 DO Writeln('Квадрат числа ',2*i-1, ' = ', sqr(2*i-1));
ReadLn;
end.
Вот текст программы:
program ex26;
uses
Crt;
var
i: integer;
begin
ClrScr;
FOR i:=1 TO 5 DO Writeln('Квадрат числа ',2*i-1, ' = ', sqr(2*i-1));
ReadLn;
end.
- 0 комментариев
- Отметить нарушение!