Выяснить, является ли число Y кратным
3 и больше 50? Если условие выполняется, то вывести да, иначе нет
Program
VAR __: real;
Begin
Weiteln (‘введите число х’);
Reagln (__);
If __ And (Y mod 3=0) then writeln (‘___’) Else writeln (‘’);
End.

дар70    3   27.04.2020 07:03    0