Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
uses Arrays;
begin
var S := CreateRandomIntegerArray(10,4,33);
writeln('Массив: ', S);
writeln('Индексы массива начинаются с 0!');
writeln('Минимальный элемент: ', S.Min, '. Индекс: ', S.IndexOf(S.Min));
writeln('Максимальный элемент: ', S.Max, '. Индекс: ', S.IndexOf(S.Max));
end.
А)Разбиваем буквы на пары: урок, весна, каникулы, информация, мокрому дождь не страшен.
б)Читаем с права на лево: арена, корзина, рюкзак.
в)Разбиваем слово на слоги и записываем каждый слог с права на лево: канал, гитара, телевизор.
г)Читаем слово через букву с лева на право а затем оставшийся буквы с права на лево:балкон, вагон, кабинет.
Не знаю пишут ли тут готовый код, но я ****** писать его, но попробую помочь схемой.
Насчет диапазона я не понял точно, его тебе весь дали или в форме 1-10 или каждое число
крч я пишу общее решение а ты уже подумаешь как в твоей ситуации работать
1. берешь все делители числа
что бы сделать это ты узнаешь число и делишь в цикле от 1 и дальше i++, понятное нужны только такие делители про котором остаток будет 0
т.е делаешь проверку на то что бы (% == 0)
если равно записываешь число(в массив или какт придумаешь), нет - идешь по циклу дальше
проверяешь пока i!=твоему числу (это и нормально цикл намутит и сразу исключит самое число в качестве делителя)
если цикл закончился суммируешь всё что достал и проверяешь равна ли эта сумма твоему числу, если да используешь cout а в нем начальное число если нет идешь ко второму и заново схема
для такой махинации нужен наверно будет еще 1 цикл поверх этого с проверкой на то что твое число не равно конечному в диапазоне/
Надеюсь помог тебе хотя бы немного.
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.