сервис вопросов и ответовВ ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны
5-9 класс|
|
два числа. Большее из них замените разностью чисел, а меньшее — суммой.
Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.
NASTIA145
09 нояб. 2015 г., 12:40:37 (8 лет назад)
Намба
09 нояб. 2015 г., 14:04:44 (8 лет назад)
var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
end.
Ответить
Другие вопросы из категории
помогите решить задачу по информатике: исполнитель "Вычислитель" умееет выполнять только 2 команды: умножать на 2 и прибавлять 1. Придумайте для него
наиболее короткий план получения из 0 числа 50
СРОЧНО!!!!!!!!!!!!
Читайте также
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
РЕШИТЕ ПОЖАЛУЙСТА!!! Сформировать массив множителей заданного числа. Язык программирования - паскаль.ПОМОГИТЕ, ПОЖАЛУЙСТА!!! дана матрица
B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.
Паскаль, помогите!!!
Дан фрагмент программы, который решает задачу поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. Определите, какой оператор необходимо вставить вместо троеточия ( . . . ), чтобы правильный результат выдавался для любого целого числа N. Все используемые переменные имеют целый тип данных. Ответ записывайте без пробелов.
на языке Паскаль
readln(N);
MC:=9; I:=0; K:=1; N:=abs(N);
while N< >0 do
begin
С:=N mod 10; N:=N div 10;
I:=I+1;
if ... then
begin
MC:=C; K:=I;
end;
end;
writeln(K); .
10 минут осталось, подалуйста.
Люди Люди Люди если вы читаете это сообщение значит вы просто обязаны помочь! пожалуйста если у вас есть паскаль помогите пожалуйста решить первое и
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
Вы находитесь на странице вопроса "В ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.