Ответы на вопрос:
Var a,s: integer; begin s: =0; repeat read(a); if (a mod 6 = 0)and(a mod 10 = 6) then s: =s+a; until a = 0; write(s) end.
Популярно: Информатика
-
Что делать если на компьютере не работают клавиши qaz1.пробовал менять...
DarkPear03.08.2020 21:22 -
Что (кто) из перечисленного может выполнять алгоритмы? (Несколько правильных...
Margarita1207111.01.2020 20:39 -
Лісник знайшов x грибів ,серед яких y грибів були поганками. всі неїстівні...
rassvet112304.07.2020 06:22 -
попередження про те, що двері самі зачиняються в той самий момент, коли...
sonia8106.11.2022 00:10 -
Переведите число из 10-чной системы счисления в двоичную систему счисления...
kostyuchkova1205.02.2020 08:03 -
Укажите верное соотношение для множеств А={5, 9, 11}; В={4, 5, 10, 11,...
amamam00907.02.2023 10:05 -
Написать программу в питоне тема строки...
123Никита563420.08.2021 05:36 -
Напишите программу, 1.найти все трехщначные числа, средняя цифра которых...
assimie11.06.2023 03:49 -
Задали решить по информатике. ! 1 учебник 447,6 кб. сколько поместится...
elZaCHan122.03.2020 03:48 -
Написать программу, которая вводит с клавиатуры одномерный массив из пяти...
Lisa11200715.02.2021 09:17