Question

Среда паскаль. тема сложные условия.

1. Является ли число трехзначным и кратным 7

2. Вводятся три числа,вывести их в порядке возрастания

Answer 1

1 программа

var b:integer;

begin

 

read(b);

if ((b div 100<>0) and (b div 1000=0) and (b mod 7=0)) then write ('da') else writeln ('net');

end.

2 программа

var a,b,c: integer;

begin

 readln(a,b,c);

 if (a>b) and (a>c) then  if (b>c) then writeln(a,b,c) else writeln (a,c,b)  else

   if (b>a) and (b>c) then if (a>c) then writeln(b,a,c) else  writeln (b,c,a) else

     if (c>a) and (c>b) then if (a>b) then writeln(c,a,b) else  writeln (c,b,a) ;

end.