Регистрация
Анонимка00
25.04.2020 04:33
Информатика
Есть ответ 👍

Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложения: Уж небо осенью дышало я в информатике вообще не понимаю​

178
477
Посмотреть ответы 1

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

kamilfox
kamilfox
4,7(23 оценок)
1)    var     a ,i,min: integer; begin min : = 30000;   i : = 0;   while i < > 12 do   begin     readln(a);     if (a< min) and (a mod 2 = 0) then     min : = a;     i : = i +1;   end; writeln (min); end. 2)   var    a ,i,max: integer; begin max : = 0;     i : = 0;   while i < > 12 do  begin    readln(a);     if (a> max) and (a mod 10 = 2) then    max : = a;     i : = i +1;   end; writeln (max); end.

Популярно: Информатика