Прыклад 17.2. V. Праграма: var x, c: integer; begin write('Увядзіце x = '); read(x); for var a : = 1 to 9 do begin c:= a* x; writeln(a,' * ',x,' = ',c); end; end. расписать
Ответы
Ответ:
{
Программа запрашивает у пользователя
значение х (второго множителя), а затем выводит
на экран 9 строчек с результатом умножения введённого на
числа от 1 до 9 по порядку.
Допустим, пользователь ввёл число 5, тогда программа выведет:
1 * 5 = 5
2 * 5 = 10
3 * 5 = 15
4 * 5 = 20
5 * 5 = 25
6 * 5 = 30
7 * 5 = 35
8 * 5 = 40
9 * 5 = 45
объявляются две переменные x и с,
обе переменные целочисленного типа
x - будет хранить в себе множетель, который запрашивается
у пользователя
с - будет хранить в себе произведение
}
var x, c: integer;
{ начало }
begin
{ на экран выводится текст "Введите х = ", каретка не переносится }
write('Увядзіце x = ');
{ в переменную x записывается число, введённое пользователем }
read(x);
{
начинатеся цикл от 1 до 9. Переменная-счётчик с начальным
значением 1 объявлется внутри конструкции цикла
}
for var a : = 1 to 9 do
begin
{
в переменную c записывается произведения текущего
значения счётчика цикла на введённое пользователем число
}
c := a * x;
{
на экран выводится результат вычисления:
вместо a подставляется текущее значение счётчика,
затем пишется " * ", после этого подставляется число
введённое пользователем, добавляется " = ", и в конце,
подставляется произведение
}
writeln(a,' * ',x,' = ',c);
end;
end.