if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
Ответ дал: Гость
v=24*640*480 = 7372800 бит.
737200: 8 = байт.
921 600: 1024 = 900 кб
900: 1024 = 0,88 мб
2 мб : 0,88 мб = 2,28.
количество страниц : 2
Ответ дал: Гость
программа генерирует масив и присваевает значение 0 самому большому значению в массиве.
program d1varc: array[1..20] of integer; i,z: integer; beginrandomize; for i: =1 to 20 dobeginc[i]: =random(50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]> z then z: =c[i]; end; c[z]: =0; end.
Популярные вопросы