Так как Вы не уточнили какой Вы хотите что б был вывод на екран, то я буду выводить число а, б или с. (Писал на паскале ABC)
код программы на паскале:
<span>var</span> a<span>,</span>b<span>,</span>c<span>:</span><span>real</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>; <span>writeln</span><span>(</span><span>'Введите b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите c'</span><span>)</span>;
<span>readln</span><span>(</span>c<span>)</span>;
<span>if</span><span>(</span>a>b<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'a - наибольшее число'</span><span>)</span><span>else</span><span>if</span><span>(</span>b>a<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'b - наибольшее число'</span><span>)</span><span>else</span><span>writeln</span><span>(</span><span>'c - наибольшее число'</span><span>)</span>;
<span>readln</span>;
<span>end</span>.
Рад был помочь) Пишите)
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
Нина - 23 апреля (если дети одногодки то тут какая-то ошибка, так как на Нину остаётся только 23 апреля, но она должна быть старше Коли, однако решение возможно если упущено условие что один из детей старше на год)
Маша - 21 марта
Коля - 23 марта
Таня - 19 мая
Петя - 4 мая
Program x2;
var n:integer;
begin
Write('Введите n, n = ');
Readln(n);
Writeln('Сумма 1-ой и 4-ой цифр = ',n div 10000 + (n mod 100) div 10,' , произведение 2-ой и 5-ой = ', ((n mod 10000) div 1000) * (n mod 10)); // это продолжение строчки сверху
<span>end.</span>
Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...