Люди, нужна ваша помощь, используя программу Pascal. Незнающих прошу пройти мимо. Следует...

Question

Люди, нужна ваша помощь, используя программу Pascal. Незнающих прошу пройти мимо. Следует составить 2 программы согласно 2 заданиям ниже :)
(ввод с клавиатуры)

1) Найдите сумму первой и последней цифр четырехзначного числа.
2) Записать четырехзначное число в обратном порядке.

Comments

стало лучше?

---

раз принимается, то уже хорошо)

---

1.var a, b: integer;beginreadln(a);b := a mod 10;a := a div 1000;a := a + b;end.2.var a: integer;beginreadln(a);a := (a mod 10)*1000 + (a div 10)*100 + (a div 100)*10 + (a div 1000)end.

---

Здесь, потому что "Уже отвечают максимальное число пользователей".

---

вопрос небольшой. а writeln здесь можно вклинить? и если да, то как ...

---

В конце каждого: writeln('Искомое число = ', a);

---

И да, в последней формуле не хватает знака ";" в конце.

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите четырехзначное число');
  Writeln('Сумма первой и последней цифры равна ',n div 1000+n mod 10);
  Writeln('Реверс числа: ',n.ToString.Inverse)
end.

Пример
Введите четырехзначное число 5719
Сумма первой и последней цифры равна 14
Реверс числа: 9175

Answer 2

Uses crt;
var input:integer;
begin       
readln(input);       
var a := input mod 10;       
var b := input div 10;       
b := b div 10;       
b := b div 10;       
writeln('Сумма первой и последней цифры: ', a + b);       
 b := 0;       
while input > 0 do       
begin               
b := b * 10 + input mod 10;               
input := input div 10;       
end;       
writeln('Перевернули цифру: ', b);                
end.