Паскаль авс сложить все четные числа и нечетные вывести результат. заранее . счет идет от 1 до 10​

//первый вариант

var

  i, summ: integer;

begin

  summ : = 0;

  for i : = 1 to 99 do

    if i mod 2 = 1 then

      summ : = summ + i;

  writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);

end.

 

//второй вариант

var

  i, summ: integer;

begin

  summ : = 0;

  i : = 1;

  while i < 100 do

  begin

      summ : = summ + i;

      i : = i + 2;

  end;

  writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);

end.

I. 1. информационными моделями являются - .. в)модель корабля г) формула 2. материальной моделью является - .. а)анатомический муляж 3. какие пары объектов находятся в отношении "объект-модель" б)компьютер-его функциональные схемы 4. какая модель является статической? в)формула соединения ii. 1. имя переменной определяет - .. б)выделенную область оперативной памяти 2. значение переменной определяет - .. а)данные хранящиеся в выделенной области оперативной памяти б)данные хранящиеся в выделенной области оперативной памяти 3. тип переменной определяет - .. в)количество выделяемых ячеек оперативной памяти г)присваивание значения переменной iii. 1. операционная система - это .. в)программа работой компьютера 2. системные диск необходим для .. а)загрузки операционной системы 3. отличительной особенностью компьютерных вирусов от других вредоносных программ является- .. б)способность к размножению 4. информационный объем файла не может быть больше, чем .. а)размер сектора диска