Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 3 и оканчивающихся на 4.
Ответы на вопрос:
program aver;
var s, n, k :integer;
begin
n:= 1; // значение числа для входа в цикл while
s:= 0; // сумма чисел, удовлетворяющих условию
k:= 0; //счетчик чисел
writeln ('Введите серию чисел,');
writeln('заканчивая ввод каждого числа нажатием на Enter');
while (n <> 0) and (k < 1000) do
begin
read(n);
if n > 30000 then
begin
writeln('Число не должно быть больше 30000');
read(n);
end;
if (n mod 10 = 4) and (n mod 6 = 0) then s:= s + n;
k:= k + 1;
end;
writeln('сумма = ', s)
end.
summ = 0
count = 0
while 1:
a = int(input())
if count == 1000: break
elif a == 0:
break
elif a > 30000:
continue
count += 1
if a % 3 == 0 and str(a)[-1] == "4":
summ += a
print(summ)
ответ дан. Отметь, как лучший потом.
Объяснение:
A='SSSaASssdfg'
A=A.replace('S','')
Print(A)
Популярно: Информатика
-
victoriagnyliak14.04.2021 02:30
-
Marina2001260813.06.2022 19:55
-
Amelka0625.06.2020 17:41
-
masha00700911.07.2020 02:33
-
ринат12613.02.2023 22:01
-
brain000306.12.2020 01:29
-
Vano2205200011.01.2021 06:30
-
kblaginin6gmailm08.07.2022 07:27
-
tainyanonimusp08coh05.02.2020 19:37
-
sashaWinka19.02.2022 06:32