Question

Решите пожалуйста)
очень срочно,мне 1,2,3,4,5 задания

Answer 1

1. var
  a, b: integer;
begin
  write('Введите два числа >> ');
  read(a, b);
  writeln('Числа в обратном порядке: ', b, ' ', a);
end.
2. var
  a, b, c: integer;
begin
  read(a, b);
  c := a + b;
  write(a, b, c);
end.
3. var
  a: integer;
begin
  write('Введите двузначное число >> ');
  read(a);
  writeln('Сумма цифр = ', a div 10 + a mod 10);
  writeln('Произведение цифр = ', a div 10 * (a mod 10));
end.
4. var
  a, a1, a2, a3: integer;
begin
  write('Введите целое трехзначное число >> ');
  read(a);
  a1 := a div 10;
  a2 := a div 100;
  a3 := a mod 10;
  if (a1 = a2) or (a2 = a3) or (a1 = a3) then writeln('Да')
                                         else writeln('Нет')
end.
5. var
  a, b, c: integer;
begin
  write('a b c >> ');
  read(a, b, c);
  if (a >= b + c) or (b >= a + c) or (c >= a + b) then
    writeln('Не существует')
  else if (a = b) and (b = c) then
    writeln('Равносторонний')
  else if (a = b) or (b = c) or (a = c) then
    writeln('Равнобедренный')
  else
    writeln('Разносторонний')
end.
6. var
  a, a500, a100, a50, a10: integer;
begin
  write('Введите сумма сдачи >> ');
  read(a);
  writeln('Следует сдать: ');
  while a >= 500 do
  begin
    a500 := a500 + 1;
    a := a - 500;
  end;
  writeln('банкнот по 500 руб. - ', a500, ' шт.');
  while a >= 100 do
  begin
    a100 := a100 + 1;
    a := a - 100
  end;
  writeln('банкнот по 100 руб. - ', a100, ' шт.');
  while a >= 50 do
  begin
    a50 := a50 + 1;
    a := a - 50
  end;
  writeln('банкнот по 50 руб. - ', a50, ' шт.');
  while a >= 10 do
  begin
    a10 := a10 + 1;
    a := a - 10
  end;
  writeln('банкнот по 10 руб. - ', a10, ' шт.');
end.