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>

0 0

4 года назад

Нарисуй вид указателя мыши в следующих ситуациях

chambellan

Пуск-Панель управления-Мышь- Свойства я думаю так

0 0

4 года назад

Составьте алгоритм с условием х+у<0. Спасибо за помощь!!!

Diana 1991

program raf105;

var

x,y: integer;

begin

write('x = ');

readln(x);

write('y = ');

readln(y);

if x+y < 0 then writeln(x+y,' Меньше нуля')

else writeln(x+y,' Больше или равно нулю');

end.

<h3>PascalABC</h3>

0 0

4 года назад

Как записать формулы в excle?которые на фотозадание 1 под 3 точкой ,2 и ,3 задания

Иван2009

Решение во вложении.

0 0

4 года назад

Прочитать ещё 2 ответа