Номер 223, страница 81, часть 2 - гдз по информатике 8 класс рабочая тетрадь Босова, Босова

Задания к § 4.5 (5.5). Программирование циклических алгоритмов. Главы 4-5. Начала программирования. Часть 2 - номер 223, страница 81.

Условие.

223. Дана программа на двух языках программирования:

Паскаль:

var x, k1, k2: integer; begin k1 := 0; k2 := 0; repeat writeln ('Введите целое число'); readln (x); if x ‹ 0 then k1 := k1 + 1; if x > 0 then k2 := k2 + 1; until x = 0; writeln ('k1 = ', k1, '', 'k2 = ', k2) end.

Python:

k1 = 0 k2 = 0 while True: x = int (input ('Введите целое число')) if x ‹ 0: k1 += 1; if x > 0: k2 += 1; if x == 0: break print ('k1 = ', k1, '', 'k2 = ', k2)

Чем являются результаты работы программы?

Составьте блок-схему, соответствующую программе.

Решение.

Данная программа подсчитывает количество чисел больше нуля (k2) и чисел меньше нуля (k1). Программа заканчивает работу, если вводим число нуль.

var
x, k1, k2: integer;
begin
k1 := 0;
k2 := 0;
repeat
writeln ('Введите целое число');
readln (x);
if x ‹ 0 then k1 := k1 + 1;
if x > 0 then k2 := k2 + 1;
until x = 0;
writeln ('k1 = ', k1, ' ', 'k2 = ', k2);
end.

Введите целое число
6
Введите целое число
7
Введите целое число
8
Введите целое число
-5
Введите целое число
-1
Введите целое число
-3
Введите целое число
0
k1=3 k2=3