Pascal ABCЗадания #11)Вывести ** экран числа от 10 до 150 с шагом 10.2)Вывести ** экран...

Question

Pascal ABCЗадания #11)Вывести на экран числа от 10 до 150 с шагом 10.2)Вывести на экран числа от 100 до 200 с шагом 10 в обратном порядке.Задания #21)Даны два числа. Выведите большее из них на экран.Задания #31)Даны 3 числа. Выведите большее из них и сумму оставшихся двух чисел на экран.

Answer 1

Задание #1

var a:integer;

begin

a:=10;

while a

begin

write (a,'  ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,'  ');

a:=a-10

until a

end.

Задание #2

var a,b:integer;

begin

readln(a,b);

if a>b then write (a) else write (b)

end.

Задания #3

var a,b,c:integer;

begin

readln(a,b,c);

if (a>b) and (a>c) then write (a,'   ',b+c);

if (b>a) and (b>c) then write (b,'   ',a+c);

if (c>a) and (c>b) then write (c,'   ',a+b)

end.