Var
a, b, n: integer;
begin
read(a, b);
if sqr(a)>sqr(b) then n:=1 else n:= 2; writeln('N = ', n);
end.
Значение переменной j после выполнения следующего фрагмента программы равно 54
Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).
Ответ: Без циклов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n, m, sum: integer;
begin
sum := 0;
repeat
writeln('Введите числ с которого начинается ряд');
readln(n);
writeln('Введите число которым заканчивается ряд');
readln(m);
until n
Int i = ( ((x==y)||(y==z)||(z==x))&&( (x % 2 == 0)||(y % 2 == 0) )? 1 : 0 );