Решить в паскале 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
Ответы на вопрос:
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
Популярно: Информатика
-
КУКУ200704.07.2021 23:57
-
Сашазаикина12.10.2021 22:22
-
lena170025.02.2022 01:56
-
krasnov595egr09.06.2022 00:49
-
burcevyuriy13.08.2020 16:13
-
Mraleex25.08.2021 12:46
-
psvelcmytin181204.04.2023 01:32
-
mukhibamuz1410.07.2022 23:49
-
моллск08.04.2021 15:35
-
ramon815.07.2022 14:11