Напиши программу, в которой осуществляется ввод целых чисел(ввод осуществляется до тех пор, пока не будет введён ноль) и определения максимального из введённых чисел. Используйте оператор REPEAT. Информатика, 8 класс
1)Просыпаюсь 7:00 (ес в первую смену) 2)Заправляю постель 3)Чищу зубы 7:10 4)Завтракаю 7:15 5)Одеваюсь в 7:30 6)Обуваюсь 7)Иду в школу 7:40 8)Переобуваюсь и сдаю куртку в гардероб 7:45 9)Своё расписание напиши и там типо 8:00 -13:00 (распиши все уроки и когда идешь кушать) 10)Иду домой 13:10 11)Мою руки 13:20 12)Ем 13:25 13)Отдыхаю (своё время например до 14:00) 14)Одеваюсь в бассейн на плаванье 14:00 15)Иду в бассейн 14:05 16)Плаваю с 14:15 17)Иду в художку 15:15 18)Рисую в художественной школе 15:30 19)Иду домой в 18:30 20)Мою руки 18:40 21)Ужинаю 18:50 22)Делаю дз 19:00 23)Сижу за компьютером 21:00 24)Умываюсь 22:30 25)Ложусь спать 23:00
Basic: DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER CLS INPUT "Введите кол-во тетрадей:"; tetradCount INPUT "Введите кол-во обложек:"; oblojCount
Предполагается, что будет введено минимум одно значение. var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.