Есть ответ 👍

Решить в паскале 1) c начала суток прошло n секунд. необходимо определить сколько полных минут прошло с начала суток. 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. (нельзя использовать ветвления и циклы)

214
445
Посмотреть ответы 2

Ответы на вопрос:

ivanes
4,7(90 оценок)

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. если что то не  работает напиши .

Sub aaa()       if int(inputbox("введите целое число")) mod 2 = 0 then               msgbox "четное"       else               msgbox "нечетное"       end if end sub

Популярно: Информатика