Question

помогите по информатике , нужны программы

Answer 1

Первая
program z1;
uses crt;
var a:integer;
begin
writeln('vvedite chislo');
readln(a);
if (a>-5) and (a<3) then
writeln ('prinadlezhit') else
writeln ('net');
end.

вторая
program z2;
uses crt;
var a,b:integer;
begin
writeln('vvedite chislo');
readln(a);
b:=(a div 10)+(a mod 10);
if b mod 2=0 then
writeln ('da') else
writeln ('net');
end.

третья
program z3;
uses crt;
var a,b,c,k:integer;
begin
writeln (' введите числа');
readln (a,b,c);
k:=0;
if a mod 2<>0 then
k:=k+1;
if b mod 2<>0 then
k:=k+1;
if c mod 2<>0 then
k:=k+1;
writeln(k);
end.

четвёртая
program z4;
uses crt;
var a,b,c,min:integer;
begin
writeln ('введите числа');
readln (a,b,c);
min:=a;
if b<min then
min:=b else
if c<min then min:=c;
writeln(min);
end.

пятая
program z5;
uses crt;
var a:integer;
begin
writeln ('число');
readln (a);
if (a>9) and (a<100) then
writeln('da') else
writeln ('net');
end.