В 1 килобайте(Кб )1024 байт(б)
в 1 байте 1/1024 килобайт
в 30 байт 30/1024 килобайт=15/512 Кб
ПЗОГЗФЬЬФ
Выделяем букву П. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГЗФЬЬФ
Выделяем букву О. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву Г. В алгоритме также нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГРФЬЬФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАЬЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАМЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАММФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАММА
Ответ: ПРОГРАММА
4096 Кбайт / (1 * 1024 Кбайт / 8 сек) = 32 сек
Var a,b,c,d:integer;
begin
writeln('введите часы');
readln(a);
writeln('введите минуты');
readln(b);
if (a>=12) and (b>0) then writeln('время после полудня');
if (a<12) and (b<=59) then writeln('время до полудня');
if (a=12) and (b=0) then writeln('время полдень');
<span>end.</span>
<span>program sum(input,output);
var
a,b,c,d,p,o:int64;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(a,b,c,d);
if b>c then begin
p:=((b*c)+d-a);
writeln(p);
end
else if c>b then
begin
o:=((b*c)+a-d);
writeln(o);
end;
close(input);
close(output);
end.</span>
