1 символ = 2 байта
1). 60*2=120 байт - на 1 строке
2). 120*40=4800 байт - на 1 странице
s := '123456789'; - строковой переменной s присваивается значение
Delete ( s, 1, 2 ); - из строки s удаляется 2 символа, начиная с 1-го (значение s будет '3456789')
n := Pos ( '6', s ); - определяется номер позиции символа '6' в строке s. Этот номер равен 4
writeln ( n ); - на экран выводится значение n, т.е. 4
1)Друга ищи, а найдешь - береги. 2) Старый друг лучше новых двух.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
Ответ:
Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.