Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.

Результат:
376 * 376 = 141376
625 * 625 = 390625

0 0

4 года назад

Паскаль Найдите сумму квадратов всех натуральных чисел от 1 до 100. Решите эту задачу с использованием всех трёх видов циклов

Татьяна 12345

uses Math;
var
i: integer;
sum: real;
begin
for i := 1 to 100 do
Sum := Sum + Sqr(i);
Writeln(Sum);
end.

<h2>Цикл while (предусловие)</h2>

uses Math;
var
i: integer;
sum: real;
begin
while i <= 100 do
begin
Sum := Sum + Sqr(i);
i := i + 1;
end;
Writeln(Sum);
end.

<h2>Цикл repeat..until (постусловие)</h2>

uses Math;
var
i: integer;
sum: real;
begin
repeat
i := i + 1;
Sum := Sum + Sqr(i);
until i >= 100;
Writeln(Sum);
end.

0 0

3 года назад

Совокупность всех программ, используемых на данном компьютере-это

тфы1983 [4]

Программное обеспечение

0 0

1 год назад

Прочитать ещё 2 ответа

Нарисуйте ориентированный граф (блок-схему) проверки учителем пачки тетрадей. В систему команд входит: проверить работу; взять т

Аннушка67

во вложении................................

0 0

4 года назад