Напишите программу на языке паскаль, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Заранее благодарен
ProstoProMaster:
а сколько чисел всего и каков их диапазон
по количеству
Program kratn_6_okanch_4;
var a,s: integer;
begin
wri teln('Введите натуральные числа, в конце введите 0');
readln(a);
s:= 0;
while a<>0 do
begin
if (a mod 6 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a);
end;
writeln('Сумма всех чисел кратных 6 и оканчивающихся на 4=',s)
end.
var a,s: integer;
begin
wri teln('Введите натуральные числа, в конце введите 0');
readln(a);
s:= 0;
while a<>0 do
begin
if (a mod 6 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a);
end;
writeln('Сумма всех чисел кратных 6 и оканчивающихся на 4=',s)
end.
я нашел программу, но не совсем понимаю как она работает
что идет после а не равно нулю? как это роботает?
Короче разобрался,
Ответы
Ответ дал:
0
Ответ:
Program kratn_6_okanch_4;
var a,s: integer;
begin
wri teln('Введите натуральные числа, в конце введите 0');
readln(a);
s:= 0;
while a<>0 do
begin
if (a mod 6 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a);
end;
writeln('Сумма всех чисел кратных 6 и оканчивающихся на 4=',s)
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад