var
s1 : integer; // сумма четных чисел
s2 : integer; // сумма всех чисел
begin
for var i := 50 to 120 do begin
if i mod 2 = 0 then s1 += i;
s2 += i;
end;
writeln('сумма четных чисел = ', s1);
writeln('сумма всех чисел = ', s2);
end.
1. друга ищи, а найдёшь - береги
2. старый друг лучше новых двух
Правильно, что обратилась к нам =). Итак, ОПЕРАЦИОННАЯ СИСТЕМА отвечает за работу компьютера с человеком, интерфейс и стандартное програмное обеспечение. От того, какая у тебя операционка, зависит написание тегов ( например объединять теги переноса строки в один или нет). Примеры операционных систем: Windows, Linuw, Unix, Ubuntu, Macintosh, IOS, WindowsMobile, Android, MacOS и т.п. этого хватит?
Налево при x = 1
Направо при x = 21
Ответ: 1, 21
-------------------
Действие y := x + 12 выполнятся не будет вообще, т.к. x должен быть -8, но это число является истинным для первого условия x < 3, поэтому туда программа не пойдет.