Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на
10-11 класс
|
экран.
на каком языке програмирования?
var c, a,b: integer;
begin
Writeln ('Введите 1 ое число');
readln(a);
Writeln ('Введите 2 ое число');
readln(b);
IF (a*b)<0 then
c:=(A*B)*2
else
c:=(a*B)*1.5;
writeln(c);
end;
Вроде так
Другие вопросы из категории
Язык – это знаковый способ представления информации.
И придумайте похожую задачу, только немного сложней. :)
Сорь за качество.
Читайте также
1) Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. Вывести полученное число.
2) Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
Не понимаю программирование... :(
Пример: Ввести 3 числа.
4 5 7
4+5+7=16
4*5*7=140
(4+5+7):3=5,3(3)
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
их суммы и выведите результаты на экран. Если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. Иначе, К приравняйте к 10, а Л - к 15 и выведите результаты