Регистрация
77Stranik77
22.05.2020 04:56
Информатика
Есть ответ 👍

Год на планете Z делится на месяцы. Все месяцы делятся по М дней. От начала года Запишите дату так как это делают на Земле. 9.11 означает что идёт 9-ый день 11-ого года. Выделите операторы программы для решения этой задачи.

119
269
Посмотреть ответы 1

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

zavya55
zavya55
4,5(88 оценок)
Var i,x,a,b,c,d,count: integer; begin count: =0; for i: =1000 to 9999 do begin a: =i div 1000; b: =(i div 100) mod 10; c: =(i mod 100) div 10; d: =i mod 10; if (a< > b) and (a< > c) and (a< > d) and (b< > c) and (b< > d) and (c< > d) then  if (a> b) and (b> c) and (c> d) then begin count: =count+1; write(i,' '); end; end;   writeln; writeln('количество: ',count); end.

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