Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
В алфавите
русском: 33 буквы
английском: 26
значит всего: (33 + 26)*2 + 10 + 15 = 143 символа. Значит каждый символ кодируется
битами или одним байтом.
значит весь текст имеет объем:
64*32*100*1 байт = 204800 байт = 200 кБайт
Исполнитель Черепаха рисует 4 фигуру.
Var one,two,three:integer;
Begin
Write('Введите первое число число: ');
ReadLn(one);
Write('Введите второе число число: ');
ReadLn(two);
Write('Введите третье число число: ');
ReadLn(Three);
if (one < two) and (two < Three) then
writeln('Числа введены в порядке возрастания')
else
writeln('Числа НЕ введены в порядке возрастания');
End.