Ответ: 1,3
с1 получает целое число от деления.
с2 получает остаток от деления.
Потом просто выводятся через пробел.
5 Кбайт = 5120 байт = 40960 бит. 1,5 Гбайт = 1536 Мбайт = 1572864Кбайт.
1,5 Кбайт = 1536 байт = 12288 бит
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле