• Программирование в среде паскаль. Сделайте пожалуйста 2.19,2.14 и 4.23

    question img

Ответы 6

  • Можно ничего, можно писать что-то типа "Проверено в PascalABC.NET v3.3 сборка 1549"
    • Автор:

      warren71
    • 6 лет назад
    • 0
  • Вот если Вы использовали какую-то особенность языка, тогда надо указывать, что именно на такой версии НАПИСАНО.
    • Автор:

      zavala
    • 6 лет назад
    • 0
  • В принципе, можно писать, и как Вы написали, но тогда будьте готовы к вопросам типа "А у меня такая-то версия - будет работать?" или "А мне надо на Турбо Паскаль".
  • Ок, спасибо большое.
    • Автор:

      jase
    • 6 лет назад
    • 0
  • Да пожалуйста))
    • Автор:

      john38
    • 6 лет назад
    • 0
  • Программы написаны на языке PascalABC.NET v3.3 (сборка 1549)2.19var  num, a, b, c, d: integer;begin  readln(num); //Число  a := num div 1000; //Первая цифра  b := num div 100 mod 10; //Вторая цифра  c := num div 10 mod 10; //Третья цифра  d := num mod 10; //Четвёртая цифра  writeln(a + b + c + d); //Сумма цифр  writeln(a * b * c * d) //Произведение цифрend.2.14var  num: integer;begin  readln(num); //Число  writeln(num mod 100 * 10 + num div 100) //Берём остаток от деления на 100, т. е. последние две цифры, умножаем на 10 и прибавляем первую цифруend.4.23var  num: integer;begin  readln(num); //Число  if num div 10 > num mod 10 then    writeln('Первая цифра больше')  else if num div 10 < num mod 10 then    writeln('Вторая цифра больше')  else    writeln('Цифры одинаковы')end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years