Регистрация
ForaN777
02.02.2020 03:07
Информатика
Есть ответ 👍

1. Подходы к понятию информации и измерению информации. Информационные объекты различных видов.

110
270
Посмотреть ответы 1

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

kalvifa
kalvifa
4,4(36 оценок)
Var   i,s,m: integer; begin   for i : = 1000 to 9999 do    begin     if (i div 10 mod 10 = 2) and (i div 100 mod 10 = 2) then begin       s: =s+i;       m: =m+1;     end;   end;   writeln('сумма-',s,' кол-во-',m); end.

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