Question

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

Answer 1

Программы написаны на языке PascalABC.NET v3.3 (сборка 1549)

2.19
var
  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.14
var
  num: integer;
begin
  readln(num); //Число
  writeln(num mod 100 * 10 + num div 100) //Берём остаток от деления на 100, т. е. последние две цифры, умножаем на 10 и прибавляем первую цифру
end.

4.23
var
  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.

Answer 2

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

Answer 3

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

Answer 4

В принципе, можно писать, и как Вы написали, но тогда будьте готовы к вопросам типа "А у меня такая-то версия - будет работать?" или "А мне надо на Турбо Паскаль".

Answer 5

Ок, спасибо большое.

Answer 6

Да пожалуйста))