Регистрация
Undina705
18.07.2021 17:19
Информатика
Есть ответ 👍

В чём ошибка
program chislo;

var

s:string;

begin

writeln('введите трехзначное число');

read (s);

if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then

begin

write('да');

else white('нет');

end.

108
395
Посмотреть ответы 1

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

Али20061111
Али20061111
4,6(34 оценок)

1 Задание:

Дано: 1. А=0; b=-1; c=-2; d=-3

d = -2

c = -1

b = 0

Результат a = 0; b = 0; c = -1; d = -2

Дано: 2. A=1; b=0; c=-1; d=-2

d = -1

c = 0

b = 1

Результат a = 1; b = 1; c = 0; d = -1

Дано: 3. A=2; b=1; c=0; d= - 1

d = 0

c = 1

b = 2

Результат a = 2; b = 2; c = 1; d = 0

2 Задание:

x = 55

55 + 24 = 79

70 больше 40, по этому выписываем 55

x = 12

12 + 24 = 36

36 меньше 40, по этому конец

x = 85

85 + 24 = 109

109 больше 40, по этому выписываем 85

x = 13

13 + 24 = 37

37 меньше 40, по этому конец

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