Ответ:
Не (х меньше 7) и (х четное)
(х больше= 7) и (х четное)
число должно быть больше 7 и четное
Ответ: 8
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
1,5мин=90с
512кбит/с×90с=46080кбит
46080кбит/8=5760кбайт=5,76мбайт
Var s:array[1..100]:string;
i:integer;
begin
write('введите слово);
read(s);
for i:=1 to lenght(s) do
if s[i]+s[i+1]+s[i+2] = 'рак' then
writeln('da') else writeln('net')
end.
От 50 файлов до 1гигабайта