Написать программу в Pascal, определяющую, является ли 4-хзначное число, введенное с...

Question

Написать программу в Pascal, определяющую, является ли 4-хзначное число, введенное с клавиатуры, кратным 5 и одновременно удовлетворяющим условию, что вторая цифра в его записи равна 2.

Answer 1

Ответ:

PascalABC.NET 3.5.1

begin

 var N := ReadInteger();

 var sec_char := char.GetNumericValue(N.ToString[2]);

 if ((N mod 5 = 0) and (round(sec_char) = 2)) then Println('Yes') else Println('No');

end.

Объяснение: