Предмет: Информатика,
автор: 77d05
Помогите написать на Pascal ABC
Приложения:
![](https://files.topotvet.com/i/37d/37dbb68accc03d777f24f08e832a3770.jpg)
Ответы
Автор ответа:
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:
здравствуйте,можете пожалуйста помочь решить мой последний заданный вопрос
Похожие вопросы
Предмет: Математика,
автор: zyuzin2003
Предмет: Қазақ тiлi,
автор: losevarseniy19
Предмет: Математика,
автор: asmrua090
Предмет: Математика,
автор: mustafanoori22
Предмет: История,
автор: Аноним