Среди трехзначных чисел найдите те ,сумма первой и последней цифр которого равна 7.
5-9 класс
|
Паскаль
program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
Другие вопросы из категории
браузер рекламы с ссылкой не было?
2. Какие типы анти вирусных программ вы знаете и какова должна быть профилактика заражения ПК от вирусов?
3. Графический интерфейс. Для чего служит графический интерфейс?
4. Координатные устройства ввода. Что к ним относится
Читайте также
2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными
не превышает 30 000. Программа должна напечатать только число, равное значению меньшей из его первой и последней цифр. Если число состоит из одной цифры, то минимальным является значение самой этой цифры.
Примеры работы программы:
Ввод: 3; Вывод:3
Ввод: 2194; Вывод: 2