
Ерофей
6 год назад
Даны два числа - сторона и площадь квадрата. Определить, существует ли квадрат с такой стороной и площадью.
Входные данные: Выходные данные:
Во входном потоке заданы два натуральных числа. Значение всех исходных величин не превышают 30000.
В выходной поток вывести 'YES' или 'NO'.
Пример входного файла (input.txt):
3 9
Пример выходного файла (output.txt):
YES
записать в паскальном языке))) срочно
ОТВЕТЫ

Салтыков
Aug 7, 2019
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.
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.
202
Смежные вопросы: