Предмет: Информатика, автор: 77d05

Помогите написать на Pascal ABC​

Приложения:

Ответы

Автор ответа: AnonimusPro
1

var a,b: integer;

f: text;

begin

assign(f,'input.txt');

reset(f);

read(f,a);

read(f,b);

close(f);

assign(f,'output.txt');

rewrite(f);

if frac(sqrt(a*b))=0 then write(f,trunc(sqrt(a*b)))

else write(f,0);

close(f);

end.


77d05: здравствуйте,можете пожалуйста помочь решить мой последний заданный вопрос
Похожие вопросы
Предмет: История, автор: Аноним