Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел
5-9 класс
|
program z;
var a,b: integer;
begin
readln(a,b);
if a > b then begin
b:=b*2;
a:=a+2;
end else if a<b then begin
a:=a*2;
b:=b+2;
end;
end.
Другие вопросы из категории
что это
а)панель задач б)Главное окно в)окно
Решите следующий числовой ребус: СМЕХ + ГРОМ = ГРЕМИ.
2. Текст составлен с использованием алфавита мощностью 128 символа и содержит 10 символов. Каков информационный объем текста?
Буду очень благодарна, ответ пойдет в лучший :)
1.В корзине лежат 8 черных шаров и 24 белых шаров. Сколько информации содержит сообщение о том, что из корзины достали белый шар.
2.Алфавит племени "Мульти" содержит 16 символов, а племени "Пульти" мощность 8 символов. "Мульти" составили сообщение из 200-т символов, а "Пульти" 400-т. Чье сообщение содержит большое кол-во информации.
Читайте также
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
1) С клавиатуры вводится число в интервале от 1 до 999. Написать программу, которая определяет количество цифр во введенном числе.
2) Написать программу, которая определяет, какая из двух точек расположена ближе к началу координат. Координаты вводятся с экрана.
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.