Делимся мыслями Найди Ключевые слова по теме и, используя их, составьпредложения.1234СлAАПPС3B.ВдНСЙЯTDЛKоЦ1.2.3.4.5.А2, А3, В2, A5, B2, B5, C4, А1, D4, C3, С2.В1, А1, C5, D1, D3, B5.А4, D1, А1, С1, B4.D5, D3, B5.В4, C3, A5, A1, С1, B5.Составь похожее задание.OKOiaДомашнее задание

Информатика

Ответить

Ответы

ИвановнаВладимир1832

27.06.2020

USES CRT;

VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;

BEGIN

ClrScr;

ReadLn(n);

m1:=n;

n1:=m1 div 100;

n2:=m1 mod 10;

n3:=(m1-n1*100-n2) div 10;

if n1=n2 then if n1=n3 then writeln('vse =');

if n1=n2 then writeln('1 i 3 =');

if n2=n3 then writeln('2 i 3 =');

if n1=n3 then writeln('1 i 2 =')

else writeln('<>');

END.

Проверяйте, что непонятно - спрашивайте.

Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.

Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)

Всего хорошего.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Делимся мыслями Найди Ключевые слова по теме и, используя их, составьпредложения.1234СлAАПPС3B.ВдНСЙЯTDЛKоЦ1.2.3.4.5.А2, А3, В2, A5, B2, B5, C4, А1, D4, C3, С2.В1, А1, C5, D1, D3, B5.А4, D1, А1, С1, B4.D5, D3, B5.В4, C3, A5, A1, С1, B5.Составь похожее задание.OKOiaДомашнее задание