Написать программу в Pascal объединив задание написать программу которая выводит таблицу степеней двойник от 0 до 10 и таблицу умножения на n( целое число от 2 до 10
Ответы
Ответ дал:
0
program MyWork;
var
i: byte;
n: integer;
Begin
Write('Введите число n: ');
Read(n);
for i := 1 to 10 do begin
Writeln('Результат возведениz 2 в ', i , ' степень: ', power(2, i));
Writeln('Результат умножения заданного числа ', n , ' на число ', i, ' равно ', n*i);
Writeln;
end;
end.
var
i: byte;
n: integer;
Begin
Write('Введите число n: ');
Read(n);
for i := 1 to 10 do begin
Writeln('Результат возведениz 2 в ', i , ' степень: ', power(2, i));
Writeln('Результат умножения заданного числа ', n , ' на число ', i, ' равно ', n*i);
Writeln;
end;
end.
Приложения:
![](https://st.uroker.com/files/4ac/4ac54b0001c6a991eca3bc46aa64057f.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад