Задача по паскалю. У ведіть два числа.Менше замініть сумою цих чисел, більше - їх різницею. Видіть результати.
10-11 класс
|
var a,b,x,y: integer;
begin
writeln('vvedite 2 chisla');
readln(a,b);
if a-b>0 then
begin
x:=a-b;
y:=a+b;
end
else
begin
x:=a+b;
y:=b-a;
end;
write('a = ',x,', b = ',y);
readln;
end.
Другие вопросы из категории
1) Найти число элементов массива, которые больше своих "соседей", т.е предшествующего и предыдущего.
2) Дано натуральное число, в котором все цифры различны. Нужно определить порядковый номер его максимальной цифры, считая номера:
а) от конца числа
б) от начала числа
Помогите, пожалуйста! От этих задач зависит моя полугодовая оценка.
устройствами сети-‘это что? 2) IP-адрес B) специализированный сетевой компьютер, пересылающий пакеты данных между различными сегментами сети 3) сетевой адаптер C) уникальный идентификатор, сопоставляемый с различными типами оборудования для компьютерных сет
Читайте также
- сумма первых трёх цифр и сумма последних трёх цифр.2.Полученные два числа записываются друг за другом в порядке не убывания (без разделителей).Пример.Исходное число:15177.Поразрядные суммы: 7 ,15.Результат: 715.Определите, сколько из приведенных ниже чисел могут получиться в результате работы автомата.2626 2618 2624 2628 2826 2426 1826 610.В ответ запишите только количество чисел ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!
задачи на такую тему: Составление, ввод, трансляция и
исполнение программ, реализующих
циклические алгоритмы и типовые
операции с одномерными массивами
1. модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива
2. Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (вещественная величина типа real)
Начало:
var a: array[1..10] of integer;
i: integer;
begin
а как дальше?
Предыдущий пример:
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begina[i]:=random(40)-20;
end;
for i:=1write(a[i]:4);
end.