Даны два числа - сторона и площадь квадрата. Определить, существует ли квадрат ?
Даны два числа - сторона и площадь квадрата. Определить, существует ли квадрат ?? такой стороной и площадью.
Входные данные: Выходные данные:
Во входном потоке заданы два натуральных числа. Значение всех исходных величин не превышают 30000.
В выходной поток вывести 'YES' или 'NO'.
Пример входного файла (input.txt):
3 9
Пример выходного файла (output.txt):
YES
записать в паскальном языке))) срочно
Гость
Ответ(ы) на вопрос:
Гость Var a, sqr : integer;
f1, f2 : text;
begin
assign(f1, 'input.txt'); reset(f1);
assign(f2, 'output.txt'); rewrite(f2);
read(f1, a, sqr);
if a = sqr then
write(f2, 'YES')
else
write(f2, 'NO');
close(f1); close(f2);
end.
Не нашли ответ?
Похожие вопросы