Question

Pascal ABC

Задания #1

1)Вывести на экран числа от 10 до 150 с шагом 10.

2)Вывести на экран числа от 100 до 200 с шагом 10 в обратном порядке.

Задания #2

1)Даны два числа. Выведите большее из них на экран.

Задания #3

1)Даны 3 числа. Выведите большее из них и сумму оставшихся двух чисел на экран.

Answer 1

Задание #1

var a:integer;

begin

a:=10;

while a<=150 do

begin

write (a,'  ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,'  ');

a:=a-10

until a<100

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.