Какой обьём памяти займёт ниже текст если известно,что в нём используется кодировачная таблица ascii?
192
242
Ответы на вопрос:
var
n: word;
a,max,i: integer;
begin
repeat
write ('n = '); readln(n);
until (n> 0) and (n< =1000);
write ('a = '); readln(a);
if a mod 5 = 0 then max: =a;
while i< > n-1 do begin
write ('a = '); readln(a);
if (a> max) and (a mod 5 = 0) then max: =a;
i: =i+1;
end;
writeln ('max: ',max);
readln;
end.
Популярно: Информатика
-
zavet342714.02.2020 00:19
-
АААННЯЯЯ11111.03.2023 08:49
-
Audana0011.06.2023 04:06
-
КаринаХасанова910.04.2022 13:44
-
оля202926.01.2020 01:31
-
varvara12412.11.2021 05:36
-
sana1998d16.02.2020 17:12
-
nini852320.03.2021 14:08
-
Ирина6350023.08.2022 06:24
-
VikaPikcha06.03.2023 04:27