Регистрация
maks1974
23.05.2023 02:29
Информатика
Есть ответ 👍

Дана последовательность действительных чисел. выяснить, будет ли она возрастающей (паскаль) нужен листинг

274
384
Посмотреть ответы 2

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

sasha1860
sasha1860
4,7(46 оценок)
Var a: array[1..10] of real; i: integer; b: boolean; begin b: =true; for i: =1 to 10 do read(a[i]); for i: =1 to 9 do if a[i]> a[i+1] then b: =false; writeln(b); end.
Верониккка00
Верониккка00
4,8(54 оценок)
32*40*64=81920 символов всего в тексте.  если каждый символ весит 2 байта, получаем: 81920*2=163840байт/1024=160кб

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