1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
if (N mod 2 <> 0) and (N mod 3 = 0) then
if ((N >= 345) and (N < 543)) or (N mod 7 = 0) then
if (N mod 3 = 0) or (N mod 10 = 0) then
if (N >= 231) and (N < 312) and (N mod 3 <> 0) then
if (N mod 2 <> 0) and (N div 10 mod 10 <= 5) then
if (N > 9) and (N < 100) and (N mod 10 = N div 10) then
if (N mod 10 = 4) and (N div 100 mod 10 > 3) then
if (N > 9) and (N < 100) and (N div 10 mod 2 <> 0) then
if (N mod 2 = 0) and (N div 10 mod 10 > 5) then
if (N > 99) and (N < 1000) and (N div 100 = 8) then
if (a mod 2 = 0) or (b mod 2 = 0) then
if (a + b > 56) and (a + b < 145) then
if (a mod 10 = 6) and (b mod 10 = 6)
if (a > 0) and (b > 9) and (b < 100) then
if (a div 10 mod 10 < 5) or (b div 100 mod 10 > 3) then
if (a mod 3 = 0) or (b mod 5 <> 0) then
if (a > 0) and (b >= 0) then
if (a > 100) or (b > 100) then
if (a mod 8 > 4) and (b mod 12 < 5) then
if (a mod 2 <> 0) and (b mod 2 <> 0) then