Напишите программу на языке Паскаль, которая бы выводила на экран случайное число в диапазоне [0,30] и затем уменьшало бы его на 5, пока новое значение не стало бы меньше 10. В ответе вывести количество выполненных операций вычитания (т.е. сколько раз сработает цикл-ПОКА)

127

391

Посмотреть ответы 1

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

taykinamatilda

Информатика

4,6(65 оценок)

1) program z1; var k, m, r: integer; begin write('k = '); readln(k); write('m = '); readln(m); r : = 60 * k + m; writeln('в минутах: ', r); end. 2) program z2; var k, m, a, b, l: integer; begin write('k = '); readln(k); write('m = '); readln(m); write('a = '); readln(a); write('b = '); readln(b); write('l = '); readln(l); if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then writeln('пойду') else writeln('не пойду'); end. 3) program z3; var m, r: integer; begin write('m = '); readln(m); r : = m; while r > = 60 do r : = r - 60; writeln('стрелка будет показывать ', r, ' минут'); end.