Так и называется если не правельно то прости пожалуйста если что загугли в инете
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<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 человек
const
n = 30;
var
a: array [1..n] of integer;
s, i: integer;
begin
for i := 1 to n do
begin
a[i] := random(151) + 50;
writeln('Дом ', i, ' = ', a[i]);
end;
for i := 1 to n do
s := s + a[i];
writeln('Всего ', s);
end.