Решить 2 задачу.Желательно как на 2 фотографии
116
ОТВЕТЫ
Ладно, предположим, что это паскаль ABC, тогда:
Var
a,b:real;
Begin
read(a,b);
if (a*b)lt;0 then writeln(a*b*(-2)) else writeln(a*b*3);
end.
Var
a,b:real;
Begin
read(a,b);
if (a*b)lt;0 then writeln(a*b*(-2)) else writeln(a*b*3);
end.
121
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Георгий
Посчитать сумму чётных чисел в промежутке от 8 до ...
2019-01-09 11:34:17
Umfym
15 баллов. Помоги пожалуйста Нужно написать алгоритм заваривания чая. ...
2019-01-09 11:29:22
Sazapgakp
Дан массив целых чисел. Найти сумму ЧЕТНЫХ элементов и ...
2019-01-09 11:26:09
Иннокентий
На планете Нетология живут инопланетяне с именами Фокс, Форд ...
2019-01-09 11:25:23