задано (х) если оно положительное то вывести на экран его квадрат (а) иначе его удвоенное произведение. СРОЧНО
5-9 класс
|
var
x: integer;
begin
readln(x);
if x>0 then writeln(x*x) else writeln(2*x)
end.
Другие вопросы из категории
весь экран монитора в кодировке Unicode.
Читайте также
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
напечатать исходное число
во всех остальных случаях уменьшить на 10.
2. Увеличить число X на 5, если оно положительное.
Помогите , чтобы программа пошла;3
2)Вводятся оценки за зачет и контрольную работу по физике,если сумма этих оценок больше или равна 8(на экране выводится молодец,или подтянис)(или работать больше надо)
Помогите)
отрицательное, вывести на экран его модуль, а если нет, то вычислить из него квадратный корень.