С клавиатуры вводятся 2 числа. Если хотя бы одно из этих чисел является трёхзначным и кратным 3, вывести слово YES, иначе возвести первое число в квадрат, а из второго извлеч корень, вывести эти числа на экран
Var
a,b:integer;
begin
Write(Введите два числа -> ); Readln(a,b);
if ((a>=100) and (a<=999) and ((a mod 3)=0) or
(b>=100) and (b<=999) and ((b mod 3)=0)) then Writeln(YES)
else Writeln(sqr(a),, ,sqrt(b))
end.
Тестовые решения:
Введите два числа -> 65 360
YES
Введите два числа -> 152 47
23104, 6.85565460040104
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
