Составить программу, которая будет определять развернутый или нет введенный пользователем угол. программа турбо паскаль

244

480

Посмотреть ответы 3

Ответы на вопрос:

svetik040201p01o4x

Информатика

4,5(100 оценок)

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

ЭлинаКутлуюлова

Информатика

4,5(17 оценок)

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

derek56

Информатика

4,4(42 оценок)

ответ : 256

Объяснение:

Найдем кол-во символов в тексте. Для этого перемножим кол-во страниц, кол-во строк и кол-во символов в каждой строке. Получаем 96* 180*40=691200 символов. Для того, чтобы узнать вес одного символа, нужно разделить вес всего текста на кол-во символов. Получаем 675*1024(перевод кбайтов в байты):691200=1 байт=8 бит. Чтобы найти кол-во символов в алфавите, нужно ввести двойку в степень, равную весу одного символа в битах. Получаем 2^8=256