Регистрация
данил2048
21.09.2020 17:58
Информатика
Есть ответ 👍

Рассмотрите базу данных успеваемости

192
272
Посмотреть ответы 2

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

viktoria050504
viktoria050504
4,5(30 оценок)

а) – 5

б) – 2

в) – 4

MogekoKcalb
MogekoKcalb
4,8(19 оценок)

var

a: integer;

a1, a2, a3: byte;

begin

read(a);

a3: =a mod 10;

a2: =a div 10 mod 10;

a1: =a div 100;

if (a1=a2) and (a2=a3) then

write(a);

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