сервис вопросов и ответовpascal
10-11 класс|
|
Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Mihailova200820
10 авг. 2013 г., 23:53:33 (10 лет назад)
Guf25
11 авг. 2013 г., 1:05:11 (10 лет назад)
program sum;
uses crt;
var
a,b:real;
begin
writeln('Введите число А:');
read(a);
writeln('Введите число B:');
read(b);
if (a>b) then a:=a*2 else b:=b*2;
writeln('Числа после измения а=',a,' b=',b);
end.
FeoNiKS
11 авг. 2013 г., 1:37:44 (10 лет назад)
var a,b,c:integer;
Begin
readln(a,b);
If a>b then b:=b*2
else
If a<b then a:=a*2;
writeln(a,' ',b)
end.
Ответить
Другие вопросы из категории
Помогите!
Введенная с клавиатуры сумма должна быть разменена наименьшим количеством купюр.В банкомате имеются купюры 500,100,50,10 рублей.Pascal
помогите решить.паскаль1)найти сумму целых двузначных чисел.
2)найти произведение целых чисел от 3 до n
Читайте также
Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
В языке Pascal есть функция Pandom (a), которая служит для получения случайного ряда чисел из интервала (0;а). Вопрос: придумать, как можно при помощи
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
Скажите по конкретнее, что нужно знать чтобы научиться программировать в Pascal - что именно нужно изучить...
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
ЗАДАЧА ДЛЯ PASCAL ABC: В группе 30 учеников. За выполненный тест они могут
получить от 5 до 15 баллов (Сгенерить случайные числа
Помогите, пожалуйста, решить задачу:
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.
Вы находитесь на странице вопроса "pascal", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.