Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.