Регистрация
liliya134
14.07.2021 16:18
Информатика
Есть ответ 👍

Не үшін Bluetooth және WI-FI керек?​

275
443
Посмотреть ответы 1

Ответы на вопрос:

evzrezovatatya
evzrezovatatya
4,7(57 оценок)

pascal abc

program z1;  

var a,s: integer;   //описание переменных

begin

readln(a);   //вводим первое число

s: =0;   //начальное значение суммы

while a< > 0 do //условие ввода (ввод оканчивается нулем)

 
begin

    if (a mod 10=4) and (a mod 6=0) then s: =s+a;   //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

    readln(a)
//заново вводим число

  end;

writeln(s)   //вывод суммы, когда весь цикл завершится

end.

p.s не особо понимаю, почему с таким вводом, такой ответ у тебя получается

Популярно: Информатика