Program month;
var a: Integer;
Begin
Writeln('Введите число от 1 до 3');
Readln(a);
If a=1 then writeln('Январь');
if a=2 then writeln('Февраль');
if a=3 then writeln('Март');
Readln;
end.
Пример:
<span>Введите число от 1 до 3
2
Февраль</span>
Алгоритм вычисления суммы1. Пусть дан массив A, состоящий из n элементов: a1, a2, a3, …, an. Нужно найти их сумму, т.е. S=a1+a2+a3+…+an.Нахождение суммы есть последовательное нахождение суммы по формулам:S=0 S=S+a2 … S=S+ai S=S+anS=S+a1 S=S+a3 …
Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>
Х+у=61
у+а=94
а+х=53
складываем
2х+2у+2а=208
х+у+а=208\2
х+у+а=104
общее количество знакомых
тогда
х=98,104-98=6
у=150,150-104=46
а=130,130-104=26
6+46+26=78
человек есть знакомых общих
тогда ответ будет
104-78=26
Ответ-----26 человек