Laap
6 год назад
Определить кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9.(ПАСКАЛЬ)
ОТВЕТЫ
Анастас
Oct 24, 2020
Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.
135
Смежные вопросы:
