Var a,b,c,s:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if odd(s) then
WriteLn('Нечетное. произведение чисел равно '+a*b*c)
else
WriteLn('Четное. Сумма чисел равна '+(a+b+c));
end.
30*70*3=6300байт
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Б может быть только в конце, т.к. там не точек
Число в адресе не может быть больше 255, поэтому сочетания АГ, ГВ и АВ недопустимы. Ответ: ВГАБ.
Определим объем файла до редактирования:
16 бит * 520 символов = 8320 бит
После редактирования объем уменьшился на 8320-1680 = 6640 бит
6640 / 16 = 415 символов было удалено.
Ответ: 3) 415
АЯ-это что? Вот на Паскале:1-я
readln(a,b);
writeln(a+b);
2-я:
readln (y);
x:=2;
x1:=sqr(x);
y:=1-sqr(x)+5*sqr(x1)
И все!