Question

Решить в паскале 1) c начала суток секунд. необходимо определить сколько полных минут с начала суток. 2) c клавиатуры вводится двузначное число. необходимо его "развернуть", т.е. поменять местами десятки и единицы, и сложить с исходным числом. например, если ввести число 25, то должна быть получена сумма 25 и 52 (25+52=77). 3) стоимость товара n рублей m копеек. за него заплатили t рублей s копеек. нужно определить какая сдача будет получена. с клавиатуры вводится 4 числа: n и m, t и s. количество копеек должно быть меньше 100. в ответе на мониторе должны быть получены два числа: сдача в рублях и копейках. например, если товар стоит 5 руб. 85 копеек, а за него заплатили 8 руб. 10 копеек, то сдача будет 2 руб. 25 копеек. 4) с клавиатуры вводится целое число. необходимо вывести следующее за ним четное число. например, если ввести 7, то в ответе получим 8, если ввести 12, то в ответе должны получить 14. (нельзя использовать ветвления и циклы)

Answer 1

1)
var
 n:longint;
begin
 readln(n);
 writeln(n div 60));
end.
2)
var 
n,m,i,j:longint;
begin 
 readln(n);
 m:=n mod 10 *10 + n div 10;
 writeln(n,'+',m,'=',n+m);
end.
3)
var
 a,b,c,d:longint;
begin 
readln(a,b,c,d)
; dec(c,a);
 dec(d,b);
 if d<0 then
 begin
  dec(c);
  d:=100 -abs(d);
 end;
 writeln(C,' рублей ',d,' копеек');
end.
4)
var
 a:longint;
begin
 readln(a);
 if odd(a) then inc(a) else inc(a,2);
 writeln(a);
end.
Если что то не работает напиши .