Дано целое число. Если оно является положительным, то вычесть из него 2; в противном случае прибавить к нему 5. Вывести полученное число. Pr1;
var
N : ;
begin
Write('Введите целое число: ');
(N);
if N>0 then N:= N -2
else N:= ;
writeln(N);
end.
2. Ввести с клавиатуры количество , для того чтобы программа выставила отметку. (50-70 – отметка 3; 71-84 – отметка 4; 85-10 – отметка 5).
program ___;
var N : Integer;
Write('Введите количество : ');
Readln(N);
if () and (N =71) and (N __ then k:=k+1;
if N2>__ then ;
if N3>__ then k:=k+1;
writeln(__);
end.
245
396
Ответы на вопрос:
Значит 1 символ в алфавите вест 6 бит. 8*6=48 бит ответ: текст занимает 48 бит информации
Популярно: Информатика
-
денис113904.03.2023 04:35
-
Akmeyir14.01.2020 11:43
-
Taniusha0226.02.2021 02:03
-
ашпшплщ20.08.2022 21:15
-
2Znanijacom117.06.2021 12:59
-
mendozzzakortd05.02.2023 11:14
-
zhidkovzachar22.07.2020 21:56
-
Dobro11829.07.2020 06:15
-
ALPELGOLD18.10.2022 03:18
-
artovesckin7224.02.2022 19:50