Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 8 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 8 и оканчивающихся на 6.
Ответы
Ответ дал:
0
Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.
Ответ дал:
0
Var
k,a:integer;
begin
k:=0;
While true do begin
read(a);
if a=0 then break;
if (a mod 8=0) and (a mod 10=6) then k+=1;
end;
print(k)
end.
k,a:integer;
begin
k:=0;
While true do begin
read(a);
if a=0 then break;
if (a mod 8=0) and (a mod 10=6) then k+=1;
end;
print(k)
end.
Ответ дал:
0
Программа должна вывести сумму чисел, а не количество.
Ответ дал:
0
Да,не увидел.Думаю не трудно вместо k+=1 записать k+=a
Вас заинтересует
1 год назад
1 год назад
8 лет назад