Регистрация
Jeka990
18.06.2022 00:45
Информатика
Есть ответ 👍

Программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 1000. введённые числа по модулью не превышают 30 000. программа должна вывести одно число: сумму чисел, кратных 7 и оканчивающихся на 4.

283
341
Посмотреть ответы 2

Ответы на вопрос:

Uknowmyname
Uknowmyname
4,7(89 оценок)
//pascalabc.net var       s : integer; begin       var n : = readlninteger('сколько будет чисел? ');       writeln('вводите числа');       var a : = readarrinteger(n);       for var i: =0 to n-1 do             if (a[i] mod 10 = 4) and                   (a[i] mod 7 = 0) then                   s : = s + a[i];       writeln('сумма чисел равна ', s) end.
Infinity167
Infinity167
4,6(31 оценок)

program z1;

var a:integer;

begin

read(a);

write(a mod 100 div 10)

end.

Объяснение:

Ввод числа

Вывод количества десятков

a mod 100 - находим 2 последние цифры числа (остаток от деления на 100)

(a mod 100) div 10 - находим первую цифру из 2 последних цифр числа (целочисленное деление на 10)

Если число меньше 10, то 0 выдаст автоматически, но можно и прописать отдельно через условие:

program z1;

var a:integer;

begin

read(a);

if a<10 then write(0)

else write(a mod 100 div 10)

end.

Популярно: Информатика