Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.
Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>
Program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
write ('Введите количество дюймов: ');
readln(d);
s := d*m;
writeln (d, ' дюймов = ', s, ' сантиметров')
end.
Упрощенный вариант:
program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
readln(d);
s := d*m;
writeln (s)
end.
Число символов в строке - 14
информационный объем одной страницы в байтах =(15 строк* 14 *8)/8=210 байт
информационный объем всего словаря в байтах= 128*210=26880 байт
информационный объем всего словаря в килобайтах=26880/1024=26,25 Кб
информационный объем всего словаря в мегабайтах =26,25/1024≈0,026 Мб