Var sum,i:integer; beginfor i:=1 to 500 do if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
<span> 2 байта =16 бит, то есть 1 символ записывается 16 битами. Значит, считаешь предложение количество букв, пробелов и знаков препинания у тебя выходит 32 символа, объём в битах 16*32=512 бит. Следовательно ответ: 2)</span>
Program test;
uses crt;
var
y,x:integer;
begin
textcolor(11);
writeln('Введите x: ');
readln(x);
if x>2 then begin
y:=x*x;
writeln('Ответ: ', y)
end
else
begin
y:=4;
writeln('Ответ: ', y);
end;
end.
Проект не являлся изначально коммерческим, его создали в качестве дипломного проекта. Проще говоря, он относится к свободной разработке.