Var
a,b,c:integer;
begin
readln(a,b);
If (a mod 2 = 0) and (b mod 2 = 0) then
begin
c:=a+b;
writeln('Сумма= ',c);
end
else
if (a mod 2 = 1)and (b mod 2 =1)the
begin
c:=a*b;
writeln('Произведение= ',c);
end
else
<span>begin
a:=a*5;
b:=b*5;
writeln('A=',a,' B= ',b);
end;end.<span>
</span></span>
Первая ЖИТЬ. т.к. ноль может идти только в паре с 1,2 или 3
МмммммммммммМмммммммммммМмммммммммммМммммммммммм
Что-то бредятина какая-то :D
скорей всего, модем не может быть источником (если, конечно, в него не вставляется флешка, естественно с вирусом)
ну или же уничтожение компьютерных вирусов ну никак не может быть источником...
1) ответ 0,1122
2) ответ 111201
И так остальные вычисляешь