Контрольная работа: Работа с редакторами Word и Excel Программирование в Паскале

writeln(sum);

readln

end.

2. Задано целое число N.

Если N>5, найти сумму целых чисел в диапазоне 6. N.

Если N<5, найти сумму целых чисел в диапазоне N..4

Если N=5, вывести на экран соответствующее сообщение.

Для решения задачи использовать счетный цикл

var i, n, sum:integer;

begin

sum=0

readln(n);

sum:=0;

if n>5 then begin

for i:=6 to n do sum:=sum+i;

writeln(sum);

end

else if n<5 then begin

sum= sum+i

for i:=n to 4 do sum:=sum+i;

writeln(sum);

end

else if n=5 then writeln ('N=5!');

sum= sum+i

readln

end.

3. Задано два целых числа N1 и N2.

Если N1> N2, найти сумму целых чисел в диапазоне N1. N2

Если N1< N2, найти сумму целых чисел в диапазоне N2. N1

Если N1= N2, вывести на экран соответствующее сообщение.

Для решения задачи использовать цикл с постусловием.

var i, n1, n2, sum:integer;

begin

readln (n1, n2);

sum:=0;