ситуация такова:
нужно в самые кратчайшие сроки решить протецкую задачку.
есть только в паскале, но мне нужен делфи. прошу стого не судить, тк в делфи совсем не ориентируюсь(
вот сама задачка: дано натуральное число n. выяснить, входит ли цифра 3 в запись числа n^2. число вводится из программы( через диалоговый интерфейс)
она же в паскале:
Код:
function F(n:integer):boolean;
var
temp:integer;
begin
temp:=n;
while temp <> 0 do
begin
if temp mod 10 = 3 then
begin
F:=true;
exit
end;
temp:=temp div 10
end;
F:=false
end;
var
n:integer;
begin
ReadLn(n);
if F(sqr(n)) then
WriteLn('1')
else
WriteLn('0');
ReadLn
end.
нужно содержание файлика .dpr