Напишите программку, которая в последовательности естественных чисел вычисляет сумму всех

Напишите программу, которая в последовательности естественных чисел вычисляет сумму всех двузначных чисел,кратных 8. Программка получает на вход естественные числа, количество введённых чисел неизвестно, последовательность чисел кончается числом 0(0-признак окончания ввода, не заходит в последовательность.Программка обязана вывести одно число: сумму всех двузначных чисел, кратных 8.

Задать свой вопрос
1 ответ
Program hhh54;
var i,x,s:longint;
begin
  read (x);
  s:=0;
  while x lt;gt; 0 do
    begin
      if (xgt;9) and (xlt;100) and (x mod 8 = 0) then s:=s+x;
      read (x);
    end;
  write (s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт