Var a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.
Program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.
Информационная технология базируется и зависит от технического, программного, информационного, методического и организационного обеспечения.
В классе НЕ 2 получили 21 человек
НЕ 5 получили 18 человек
3 человека получили 2
Значит 3 и 4 получили 18-3=15 человек