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<=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.

Answer 2

Sure, let's tackle these tasks step by step.

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

pascalCopy code
program Task1;
var
  i: integer;
begin
  for i := 10 to 150 step 10 do
    writeln(i);
end.

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

pascalCopy code
program Task2;
var
  i: integer;
begin
  for i := 200 downto 100 step 10 do
    writeln(i);
end.

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

pascalCopy code
program Task3;
var
  num1, num2: integer;
begin
  // Введите значения num1 и num2
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);

  // Выведем большее из двух чисел
  if num1 > num2 then
    writeln('Большее число: ', num1)
  else if num2 > num1 then
    writeln('Большее число: ', num2)
  else
    writeln('Числа равны.');
end.

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

pascalCopy code
program Task4;
var
  num1, num2, num3, maxNum, sum: integer;
begin
  // Введите значения num1, num2 и num3
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  writeln('Введите третье число: ');
  readln(num3);

  // Найдем максимальное из трех чисел
  maxNum := num1;
  if num2 > maxNum then
    maxNum := num2;
  if num3 > maxNum then
    maxNum := num3;

  // Найдем сумму оставшихся двух чисел
  sum := num1 + num2 + num3 - maxNum;

  // Выведем результаты
  writeln('Наибольшее число: ', maxNum);
  writeln('Сумма оставшихся двух чисел: ', sum);
end.

Ты можешь использовать эти программы в среде Pascal ABC. Если у тебя возникнут вопросы, дай знать!