у меня получилось 26 треугольников
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
Var key:integer;
begin
readln(key);
case key of
9583,1747:writeln('A, B, C');
3331,7922:writeln('B, C');
9455,8997:writeln('C');
end;
<span>end.</span>
Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.