Напишите развернутую запись числа 135,43 в десятичной системе счисления

Question

Информатика: Напишите развернутую запись числа 135,43 в десятичной системе счисления

Аліна23456 · Accepted Answer

1)

var sum, number, n: integer;
begin
sum := 0;
number := 1;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
sum := sum + number;
number := number + 2;
end;
write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
prod:= 1;
number := 3;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
prod := prod * number;
number := number + 3;
end;
write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
number := 1;
write('Введите n: ');
readln(n);
writeln('Таблица:');
while (number <= n) do
begin
writeln(number:5, number*number:5, number*number*number:5);
number := number + 1;
end;
end.

MOGZ ответил