Что будет на экране после выполнения следующих команд? а)Writeln (9); Writeln (5); Write (3); б)Write ('5+3'); Writeln (5-3); Writeln ('5*4=', 5*4);

а)

9

5

3

б)

5 + 32

5 * 4 = 20

Объяснение:

Writeln () и write () - операторы вывода в Паскале, т.е. служат для вывода на экран каких-либо данных.

Если нужно, чтобы каждый вывод начиналась с новой строки, то надо использовать writeln (), если нет - то write ().

Выводимый текст заключается в одиночные кавычки и выводится без изменений (Write ('5 + 3') → Вывод: 5 + 3).

Для вывода значения переменной или числа - указывается просто имя переменной или число.

Разделителем текста, переменной и т.д. служит запятая.

Если есть действия с числами или переменными ( 4*5 или a*b) вычисляется результат.

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45