Информатика 10 класс паскаль помогите !)

Question

Информатика 10 класс паскаль
помогите !)

---

Comments

Спасибо -_-

Answer 1

1)
var a:Integer;
begin
Read(a);
if a mod 2 = 0 then
WriteLn('Число '+a+' чётное.')
else
WriteLn('Число '+a+' нечётное.')
end.
2)
var a,b:Integer;
begin
Read(a,b);
WriteLn( (a>0) or (b<-2) );<br>end.
3)
var s,a,b,c:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if (aWriteLn('Образуют')
else
WriteLn('Не образуют');
end.
4)
var min,max,sum:Integer;
var s: Array[1..3] of integer;
begin
min:=Integer.MaxValue;
s[1]:= ReadInteger();
s[2]:= ReadInteger();
s[3]:= ReadInteger();
sum:= s[1]+s[2]+s[3];
for var i:= 1 to 3 do
begin
if s[i]< min then
min:= s[i];
if s[i]> max then
max:= s[i];
end;
WriteLn(sum-min-max);
end.
5)
var a,b:Integer;
begin
Read(a,b);
if a=b then
b:=0
else
if a>b then
b:=a;
a:=b;
WriteLn('а: '+a+' b: '+b);
end.