Пользователь с клавиатуры вводит 10 чисел. Написать программу, которая считает сумму чисел кратных 8. Используйте while, if else, inc
паскаль не читает read
Вот правильная
var a, b, sum, cratnoe: integer;
begin
cratnoe:=0;
b := 0;
while b<>10 do
begin
write('Введите число: ');
readln(a);
if a mod 10=8 then sum:=cratnoe+a;
inc(b);
end;
writeln('Сумма чисел кратных 8: ', sum);
end.
begin
cratnoe:=0;
b := 0;
while b<>10 do
begin
write('Введите число: ');
readln(a);
if a mod 10=8 then sum:=cratnoe+a;
inc(b);
end;
writeln('Сумма чисел кратных 8: ', sum);
end.
Ответы на вопрос
Ответил termenator2138
1
язык Python:
povt = 10
sum = 0
while povt > 0:
a = int(input("введите число"))
if a%8 == 0:
sum += a
povt -=1
print(sum)
на других языках, думаю, программа не сильно поменяется.
спасибо, я попробую перевести
спасибо я понял в чем ошибка!!!
Новые вопросы
Геометрия,
1 год назад
Математика,
1 год назад
Английский язык,
1 год назад
Информатика,
7 лет назад
Английский язык,
7 лет назад
begin
cratnoe:=0;
b := 0;
while b<>0 do
begin
write('Введите число');
read(a);
if a mod 10=8 then sum:=cratnoe+a;
end;
writeln('Сумма чисел кратных 8: ', sum);
end.