оператор присваивания :=
оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)
оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)
условный оператор if условие then оператор 1 else оператор 2
оператор варианта case управляющая переменная of
набор значений1: оператор1;
набор значений2: оператор2;
...
набор значенийn: операторN
else
альтернативный оператор
end;
оператор цикла с предусловиями while ... do
оператор цикла с постусловием repeat ... until
оператор цикла for ... do
оператор break осуществляет немедленный выход из циклов repeat, while, for.
оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.
оператор exit осуществляет выход из подпрограммы.
оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.
У каждого учителя почему-то по-разному все обозначается (по крайней мере у меня было именно так). В скобках пояснение.
Дано:
40 строк
60 символов
i (объем одного символа) = 8 бит = 1 байт
V (общий объем) = 16 Кб
Страницы - ?
16 Кб = 2^4 Кб = 2^14 байт (со степенями двойки проще такие задачи решать, если знаешь своства степеней)
V = K (кол-во символов) * i
K = V/i
K = 2^14 байт/1 байт = 2^14 символов
(Общее число символов в тексте находится умножением страниц на строчки и на кол-во символов в строке)
x - кол-во страниц
x = 2^14/40*60 = 2^14/5*2^3*4*5*3 = 2^9/5*5*3 = 6,8 страниц
ответ: 6,8 страниц
Поделитесь своими знаниями, ответьте на вопрос:
Используя условный оператор if написать конструкцию которая проверяет возраст и выводит соответствующие значения по такому словию: если возраст больше либо равен 18 - вывести сообдение "ok" иначе если возраст больше 14 - вывести сообдение "with parents" иначе - вывести сообдение "no"
var a,b:integer;
begin
write ('введите ваш возраст');
readln(a);
if a>=18 then write ('ok') else if (a>=14) and (a<18) write ('with parents');
if a<14 then write ('no');
end.