Предмет: Информатика,
автор: Derispe
Пользователь с клавиатуры вводит 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.
Ответы
Автор ответа:
1
язык Python:
povt = 10
sum = 0
while povt > 0:
a = int(input("введите число"))
if a%8 == 0:
sum += a
povt -=1
print(sum)
на других языках, думаю, программа не сильно поменяется.
спасибо, я попробую перевести
спасибо я понял в чем ошибка!!!
Похожие вопросы
Предмет: Українська мова,
автор: nayeonmelllk
Предмет: Биология,
автор: marinmaks002
Предмет: Английский язык,
автор: lednejvitalij
Предмет: Математика,
автор: вика05051985
Предмет: Литература,
автор: Мафффкачмок
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.