1. Информатика
  2. Нкпишите программу которая

Нкпишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчиващихся на 3

alex0the0human alex0the0human    3   09.09.2019 05:40    1

Ответы
sudak7 sudak7  07.10.2020 02:27

var n,i,s,a: integer;

begin

  readln(n);

  s:=0;

  for i:=1 to n do begin

    readln (a);

    if (a div 7 <> 0) and (a mod 10 = 3) then

      s:=s+a;

  end;

  writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aigulzhan aigulzhan  17.06.2019 11:00
Превратите одно слово в другое, всякий раз заменяя по одной букве так, чтобы новое слово было существительным в именительном падеже . в) паук 1. имени горького парк 2. два....
SuPeRGaMeRDGRST SuPeRGaMeRDGRST  26.01.2022 00:36
Сделать программу на Python...
annakraevaya061 annakraevaya061  26.01.2022 00:39
Что сейчас является целью развития робототехники? создание универсального робота по уборке дома создание чудо-машины создание суперробота-манипулятора усовершенствование роботов-космонавтов...
mihajlovalena45 mihajlovalena45  30.06.2019 05:00
Переведите число 18 в двоичную систему счисления...
owlllllll owlllllll  30.06.2019 05:00
Описать процедуру вычисления нод и нок двух чисел. с этой процедуры составьте программу, которая вычисляет нод и нок массива натуральных чисел....
eltinua eltinua  30.06.2019 05:10
вычислите значение в линейных и разветвляющихся алгоритмах а) а : = 4 b : = 4 а : = 2*а + 3*b b : = a/2*b b - ? б) a : = 30; b : = 6; a : = a / 2 * b; if a b then c : = a -...
мсоь мсоь  04.09.2021 11:18
Отвечаем на вопросы 1. Что такое бит? 2. Скокко биг в 1 байте? 8. Чему равен 1 байт? 4. Как определить объем информации? 5. Как перевести информацию из одной единицы измере-...
parvizmirzoev03 parvizmirzoev03  04.09.2021 11:43
1. Для чего нужно соблюдать правила безопасности в ком- пьютерном классе? 2. Почему школьникам вашего возраста нельзя работать за компьютером больше 20 минут? 3. Почему эргономика...
Bladsail Bladsail  04.09.2021 12:03
3. Преобразовать десятичные числа в двоичные , восьмеричные и шестнадцатиричные. Проверить результаты. 1 вариант: 46;125;225;750;1054;2135;228;78 2 вариант:860;785;228.79;250;547;121;12...
ivantitov2002 ivantitov2002  04.09.2021 12:24
Составление линейных алгоритмов Сделать блок-схему Рассчитать рыночную стоимость автомобиля, если, купив по заводской цене, фирма-продавец делает наценку в размере 20% от ее...

Популярные вопросы