ввести 2 числа.если их среднее больше 10,то вывести на экран "ура!"в противном случае ввести на экран"караул!"
5-9 класс
|
var a,b:real;
begin
write('введите 2 числа:');
read(a,b);
if ((a+b)/2)>10 then
write('Ура!')
else
write('Караул!');
end.
Другие вопросы из категории
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."
Читайте также
составлении условия учесть, что если число делится на 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, то увеличить её в два раза, в противном случае - уменьшить в три раза.