Вариант 1 Задание 1. Наберите и выполните эту программу на компьютере. Program priml; Var х, s: integer; Begin s: =0; For x: =1 to 100 do s :=s+x; Writeln ('Сумма равна s) End. Задание 2. Заполните пустые клетки таблицы, чтобы результат выполнения фрагмента программы был одним и тем же Команда While Команда For х:=1; While х<10 do вegin Writeln (х) ; х: =х+1 end; For X: = -5 to 8 do вegin y: =abs (x) ; Writeln (y) ; end; Задание 3. Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100. 2+4+6+…+100. Задание 4. Составьте программу вычисления количества двузначных чисел, которые кратны 5 и 2.