ввести число ...если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x>8 then y:=x/4 else y:=x*5
5-9 класс
|
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Другие вопросы из категории
элементов, и определяет, является ли эта последовательность возростающей.
Читайте также
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
Помогите , чтобы программа пошла;3
2)Вводятся оценки за зачет и контрольную работу по физике,если сумма этих оценок больше или равна 8(на экране выводится молодец,или подтянис)(или работать больше надо)
Помогите)
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.