Регистрация
NastiaForever18
10.03.2020 09:18
Информатика
Есть ответ 👍

правильно записать формулы в Excel (у меня выдает ошибку)

223
321
Посмотреть ответы 1

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

ДобродушныйЕнот
ДобродушныйЕнот
4,7(84 оценок)
Function summ(a: integer): integer; begin while(a< > 0) do begin   summ+=a mod 10;   a: =a div 10;   end; end; var i,a: integer; begin read(a); for i: =1000 to 9999 do   if(i mod 3 = 1) and (i mod 4 = 2) and (a=summ(i)) then writeln(i); end.

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