Дано пятизначное целое число, найти цифры этого числа. если один и последняя цифра равны, то найти их сумму. если они не равны, то найти их произведение. Если 2, три, четыре равны, найти сумму их квадратов в противном случае найти разницу этих чисел
Danelpos
2
14.03.2020 03:49
0
Другие вопросы по теме Информатика
SashkaFlavki
26.08.2019 08:50
Каримончик
26.08.2019 08:50
abubakar00
26.08.2019 08:50
xabibullinaeliza
26.08.2019 09:00
Predator32
26.08.2019 09:00
Раммроль
26.08.2019 09:00
frisknilly
26.08.2019 09:10
тата270
26.08.2019 09:10
hydraclaireau
26.08.2019 09:10
Популярные вопросы
- Сделать творческий отчет Путешествие по небесным телам солнечной системы...
1 - LISd Write True or False.1. Lisa is in Australia.2. Lisa is going to waterski this...
3 - (1) Ласкаво просимо в Зоотрополіс — сучасне місто, населене найрізноманітнішими...
3 - Сор 7а класс день победы:почему мы должны помнить...
3 - , могу дать больше . Самое главное что бы ответы были правильные. Остальные отправлю...
2 - Определите вид ЭКО системы дам 10 б...
2 - Рассказ звоните и приезжайте описать встречу Лилей,дать характеристику Лилии...
1 - 0,6*5/6-(3 5/9 - 2 2/15) : 32/45...
3 - Можно очень краткие ответы...
3 - помагите буду ставит 5 звезду...
3
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.