Регистрация
nastosetrova2
27.04.2022 23:28
Информатика
Есть ответ 👍

Задание:
Построить дерево позволяющее изобразить все пути между пунктами А и Д ​

141
143
Посмотреть ответы 1

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

Амаз123
Амаз123
4,5(1 оценок)

Объяснение:

var  

   a, s: integer;  

begin    

   s:= 0;    

   readln(a);    

   while a<>0 do begin      

       if (a mod 3 = 0) and (a mod 10 = 8) then        

           s := s + a;      

       readln(a);  

   end;    

   writeln(s)  

end.

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