Что такое microsoft zaw: 1) нет такого 2) zona application work - система зонального распределения памяти - id277639120230507 от gabadunka 07.05.2023 07:32

Question

Информатика: Что такое microsoft zaw: 1) нет такого 2) zona application work - система зонального распределения памяти при работе приложений 3) zero administration for windows, идея microsoft по внедрению систем, для администрирования которых не нужно прилагать лишних усилий 4) новая операционная система для на ладонных компьютеров

gabadunka · Accepted Answer

Var
count, i, d1, d2, d3, d4, d5, d6: integer;
const
MIN = 189980;
MAX = 205505;
begin
count := 0;
for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i
      then
        count := count + 1;
    end;
writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.

MOGZ ответил