Всем привет) Задание по информатике) Если не трудно Буду очень благодарен

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

1. oc ( операционная система ) позволяет всем что происходит в компьютере.

2. windows , linux ( возможно ошибка в написании ) , mac os

3.относятся также диалоговые оболочки и сервисные программы.

сервисные программы – это программы обслуживания дисков (копирование, форматирование, «лечение» ),  сжатия файлов на дисках (архиваторы), борьбы с компьютерными вирусами и т.д. 

4. java,  turbo basic,  quick basic

5.системы программирования предназначены для программистов .

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end