masterstvo2012
Ученик
- Регистрация
- 5 Июн 2014
- Сообщения
- 10
- Реакции
- 0
- Баллы
- 0
Нужна блок-схема по этому коду
uses
crt;
procedure Find;
var
i: Integer;
n1, n2: Integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i, ' - подходит, решение найдено...');
exit;
end
else
writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i);
end;
end;
begin
clrscr;
writeln('Выполняется поиск...');
Find;
end.
uses
crt;
procedure Find;
var
i: Integer;
n1, n2: Integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i, ' - подходит, решение найдено...');
exit;
end
else
writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i);
end;
end;
begin
clrscr;
writeln('Выполняется поиск...');
Find;
end.