Напишите программу в PascalABC x*(x+1/2)*(x+2/3)*(x+3/4).(x+15/16)
Напишите программу в PascalABC
x*(x+1/2)*(x+2/3)*(x+3/4).(x+15/16)
Help
Pascal ABC
Напишите программу, которая для произвольного четырехзначного натурального числа N
Вычисляет:
А) произведение первой и последней цифры числа N;
Б) если число N нечетное — выводит новое число М, образованное из числа N путем
обмена местами двух последних цифр между собой (пример – было 1234, стало 1243).
Задача по Help Pascal ABC Напишите программу, которая для произвольного четырехзначного натурального числа N Вычисляет: А) произведение первой и последней цифры числа N; Б) если число N нечетное - выводит новое число М, образованное из числа N путем обмена местами двух последних цифр между собой (пример – было 1234, стало 1243). для школьников студенческий? Узнайте решение и получите советы по предмету Информатика. Прочитайте множественные ответы, чтобы разобраться в теме. Ответы уже доступны. Если у вас есть трудности, не стесняйтесь попросить помощи у экспертов. А также вы можете стать экспертом и помогать другим ученикам!
var
n, m: Integer;
begin
Read (n);
WriteLn (‘Произведение первой и последней цифры числа ‘, n, ‘: ‘, (n div 1000) * (n mod 10));
WriteLn;
if Odd (n) then begin
m := (n div 1000) * 1000 + (n div 100 mod 10) * 100 + (n mod 10) * 10 + (n mod 100 div 10);
WriteLn (‘Число ‘, n, ‘ нечётное, поэтому новое число равно: ‘, m);
end;
end.