Var
a,b,c:Integer;
Begin
Read(a,b,c);
if (a*b > c*2-b) then Writeln(a+b)
else Writeln(b+c);
end.
Исполнителями алгоритма на мой взгляд являются В и С
1. 1245*1245 = 1550025 пикселей
если 2 цвета то глубина цвета равна 2 - это 1 бит на пиксель
1550025 * 1/8/1024 = 189 Кб
2. 1байт = 8 бит.
Зачем дан размер не понятно. 2^8 = 256
Ответ: 256
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9