СРОЧНО!!
Написать программу, которая вводит три числа – А, В, С и распечатывает только те из них, которые КРАТНЫ 3 и ОКАНЧИВАЮТСЯ на 5. Если таких чисел нет, напечатать слово НЕТ.
Например, если введены числа: 15, 25, 45, то распечатаны должны быть числа 15 и 45.
Если введены числа 15, 60, 25, то распечатано должно быть только число 15.
Если введены числа 14, 25, 60, то должно быть напечатано слово НЕТ.
Написать программу, которая вводит три числа – А, В, С и распечатывает только те из них, которые КРАТНЫ 3 и ОКАНЧИВАЮТСЯ на 5. Если таких чисел нет, напечатать слово НЕТ.
Например, если введены числа: 15, 25, 45, то распечатаны должны быть числа 15 и 45.
Если введены числа 15, 60, 25, то распечатано должно быть только число 15.
Если введены числа 14, 25, 60, то должно быть напечатано слово НЕТ.
Answers & Comments
Verified answer
Var a,b,c:integer;k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
end.