Регистрация
HELPLIZA1
05.03.2022 17:30
Информатика
Есть ответ 👍

Даны два целых числа. Если оба они чётные, то найти разность этих чисел, иначе вычислить их произведение (программа паскаль

163
169
Посмотреть ответы 1

Ответы на вопрос:

nataliyadydina
nataliyadydina
4,4(29 оценок)

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

var

v : integer;

count, max : integer;

prev : integer;

begin

count : = 0; max : = 0;

repeat

v : = readinteger;

if (count = 0) or (prev * v > 0) then inc(count)

else // знаки не

begin

if max < count then max : = count;

count : = 1;

end;

prev : = v;

until v = 0;

print('max = ', max)

end.

Популярно: Информатика