Дано пятизначное целое число, найти цифры этого - вопрос №10796160 от mdominik 23.04.2021 18:34

Question

Информатика: Дано пятизначное целое число, найти цифры этого числа. если один и последняя цифра равны, то найти их сумму. если они не равны, то найти их произведение. Если 2, три, четыре равны, найти сумму их квадратов в противном случае найти разницу этих чисел​

mdominik · Answer

var a,n:integer; begin readln(a); while a 0 do begin if (a mod 5=0)or (a mod 7=0)then inc(n); readln(a); end; writeln(n); end....