Вопрос по информатике:
Переведите код с QBasic на Pascal, пж:
SUB pq(n AS LONG)
IF n THEN
m = INT(SQR(n))
PRINT m;
CALL pq(n - m ^ 2)
END IF
END SUB
Пожаловаться
- 14.12.2017 00:54
- Информатика
- remove_red_eye 16746
- thumb_up 31
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
procedure pq(n:integer);
begin
if n0 then begin
var m:=Trunc(Sqrt(n));
Writeln(m);
pq(n-m*m)
end
end;
// Внимание! Если программа не работает, обновите версию!
procedure pq(n:integer);
begin
if n0 then begin
var m:=Trunc(Sqrt(n));
Writeln(m);
pq(n-m*m)
end
end;
Пожаловаться
- 14.12.2017 01:03
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы