Пользователь сам задает значение
program sp1;
var i:integer;
begin
readln(i);
if i>760 then writeln('ЯСНО') else writeln('Пасмурно');
end.
номер 2: программа сама придумывает давление.
program sp2;
var i:integer;
begin
randomize;
while (i<700) do
i:=Random(800);
Writeln('Программа придумала давление',i);
if i>760 then writeln('ЯСНО') else writeln('Пасмурно');
end.
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 29 [Я сдаю экзамен по информатике]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 29 символов на 16 и получим 464 бит [29*16=464 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 464 бит на 8 получаем 58 [464/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 58 байт на 1024 (советую использовать калькулятор) получаем 0,06 кбайт [58/1024=0,05664062].
В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 58 байт или 0,06 кбайт]
var P:integer;
begin
writeln ('Введите значение давления');
readln (P);
if (P>760) then writeln ('Ясно')
else
writeln ('Пасмурно');
end.