C CFIFIR Регистрация 12 Сен 2013 Сообщения 85 Репутация 0 Спасибо 0 Монет 0 4 Ноя 2022 #1 Если произведение двух числе положительно, то умножить оба числа на 2, и вывести. ПАСКАЛЬ
Hard_Pirat Регистрация 2 Ноя 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 4 Ноя 2022 #2 if a*b > 0 then writeln (a+a, b+b); Позитивный голос 0
К кирилл мёртв Регистрация 8 Сен 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 4 Ноя 2022 #3 А если произведение отрицательное, то что делать? Позитивный голос 0
Д дмитрий1985 Регистрация 24 Янв 2013 Сообщения 67 Репутация 0 Спасибо 0 Монет 0 4 Ноя 2022 #4 var a,b:integer; begin readln(a,b); if a*b > 0 then begin a := a * 2; b := b * 2; end; writeln(a, ' ', b); end. Позитивный голос 0
var a,b:integer; begin readln(a,b); if a*b > 0 then begin a := a * 2; b := b * 2; end; writeln(a, ' ', b); end.
S Stalk Регистрация 22 Апр 2013 Сообщения 85 Репутация 0 Спасибо 0 Монет 0 4 Ноя 2022 #5 var x,y: real; begin write('x y: '); readln(x,y); if x * y > 0 then begin x := 2 * x; y := 2 * y; writeln('x = ', x, ', y = ', y) end end. Позитивный голос 0
var x,y: real; begin write('x y: '); readln(x,y); if x * y > 0 then begin x := 2 * x; y := 2 * y; writeln('x = ', x, ', y = ', y) end end.