Дано число. если оно больше 100 или меньше -100, то вывести на экран символ —, иначе вывести на экран символ +;

ответ:

program test;

var

x: integer;

begin

  write ('введите число x: ');

  readln (x);

 

  if (x > 100) or (x < -100) then

  writeln ('--')

 

  else

  writeln ('++');

 

end.

объяснение:

чтобы решать такие , необходимо взять листик бумаги и ручку, чтобы представить число и подставить

Var   s, n: integer; begin   write('введите натуральное число: '); readln(n);   s : = ((n + 1) * n) div 2; { сумма арифметической прогрессии }   writeln('сумма натуральных чисел от 1 до ', n, ' равна ', s) end. результат выполнения программы: введите натуральное число: 10 сумма натуральных чисел от 1 до 10 равна 55 var   i: integer; begin   writeln('квадраты первых пяти нечетных натуральных чисел');   i : = 5 * 2 - 1;   while i > 0 do begin writeln(i: 2, sqr(i): 5); i : = i - 2 end end. результат выполнения программы: квадраты первых пяти нечетных натуральных чисел   9    81   7    49   5    25   3      9   1      1

Var  a : array [1..10] of integer;   b, i : integer; begin   randomize;   write('исходный массив: ');   for i : = 1 to 10 do     begin     a[i] : = random(10);     write(a[i], chr(32));     if (a[i] mod 2) = 0 then b += a[i];   end;   writeln();   writeln('сумма четных: ', b); end.- написано в  pascal abc- массив из 10 элементов заполняется случайными числами от 0  до 10- суммируются четные значения  элементов, а не элементы с четными индексами