Работа. цикл for. 4. с каждым двузначным числом вида ab, кроме кратных 10, проделать следующие действия: - id1054579920230422 от satinovgerman 22.04.2023 06:22

Question

Информатика: Работа. цикл for. 4. с каждым двузначным числом вида ab, кроме кратных 10, проделать следующие действия: 1) вычислить для него число вида cd, в сумме с которым число ab даёт 100; 2) для чисел ab и cd вычислить два других числа, в которых изменён порядок цифр в них, то есть числа вида ba и dc. 3) вычислить число s, равное сумме чисел ba и dc. найденные числа вывести на экран следующим образом в 2 столбца: ab + cd = 100 ba + dc = s например, для числа 29 строка вывода должна иметь вид: 29 + 71 = 100

satinovgerman · Accepted Answer

Program Prices;

const max : integer = 10;

var
price : real;
i : integer;

begin

{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;

{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);

{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;

MOGZ ответил