Составьте алгоритм перемены местами значений величин а и в, например , заданы величины а=2 в=5, после - id12954420210115 от Daasshha1 15.01.2021 16:40

Question

Информатика: Составьте алгоритм перемены местами значений величин а и в, например , заданы величины а=2 в=5, после работы алгоритма должны получиться результаты а=5 в=2 ,зарание

Daasshha1 · Accepted Answer

1.
var
a, s, cifra: integer;
begin
s:= 0;
writeln('Введите натуральное число');
readln(a);
while a > 0 do
begin
cifra:= a mod 10; //Определяем очередную цифру числа
s:= s + cifra * cifra * cifra; //Прибавляем к значению s цифру в кубе
a:= a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру)
end;
writeln('Сумма кубов цифр числа: ', s);
end.
2.
var
a: integer;
begin
writeln('Введите натуральное число');
readln(a);
while a > 9 do {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
a:= a div 10;
writeln('Первая цифра числа: ', a);
end.

Составьте алгоритм перемены местами значений величин а и в, например , заданы величины а=2 в=5, после работы алгоритма должны получиться результаты а=5 в=2 ,зарание

MOGZ ответил