For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
A, B, i: integer;
N: word;
begin
writeln('Введите целые числа A и B (A < B):');
readln(A, B);
writeln; { <-- Переход на новую строку }
writeln('Выводим все целые числа между ', A, ' и ', B, ':');
{ Выводим все числа от А до В включительно: }
for i := A to B do write(' ', i);
N := B - A + 1; { <-- Количество чисел в диапазоне [A, B] }
{ Выводим результат: }
writeln; { <-- Пропускаем одну строку }
writeln('Количество чисел между ', A, ' и ', B, ' равно ', N);
Відповідь:
Выводим числа в указанном порядке
Добрый день. ☺ На этой странице рассматриваем первые 9 заданий раздела for (смотрите Оператор цикла с параметром) задачника Абрамяна.
For1. Даны целые числа K и N (N > 0). Вывести N раз число K.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
K: integer;
N, i: word; { <-- Описание переменных }
begin
write('K = '); { <-- Выводим на экран сообщение }
readln(K); { <-- Вводим K и переходим на следующую строку }
write('N = '); { <-- Выводим сообщение на экран }
readln(N); { <-- Вводим N и переходим на следующую строку }
writeln('Число ', K, ' выводим ', N, ' раз:'); { <-- Подсказка }
for i := 1 to N do { <-- Повторение N раз }
write(' ', K); { <-- Выводим число K на экран }
readln { <-- Ожидание нажатия Enter }
end.
For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
A, B, i: integer;
N: word;
begin
writeln('Введите целые числа A и B (A < B):');
readln(A, B);
writeln; { <-- Переход на новую строку }
writeln('Выводим все целые числа между ', A, ' и ', B, ':');
{ Выводим все числа от А до В включительно: }
for i := A to B do write(' ', i);
N := B - A + 1; { <-- Количество чисел в диапазоне [A, B] }
{ Выводим результат: }
writeln; { <-- Пропускаем одну строку }
writeln('Количество чисел между ', A, ' и ', B, ' равно ', N);
readln
end.
* * *
0.9935203
program znanija;
var
m, x, y, z: single;
begin
m := 3.96;
x := 0.03;
y := 5.92;
z := tan(sqr(m)) / (3 * x * power(y, 3)) + (1 - x / y);
write(z);
end.
Объяснение:
Функция tan() возвращает тангенс числа, указанного в скобках.
Функция sqr() возводит число, указанное в скобках, в квадрат.
Функция power(x, y) возводит число x в степень y.
program znanija; // Название программы
var // Раздел для описания переменных
m, x, y, z: single; // Объявление вещественных переменных
begin // Начало программы
m := 3.96; // m = 3.96
x := 0.03; // x = 0.03
y := 5.92; // y = 5.92
z := tan(sqr(m)) / (3 * x * power(y, 3)) + (1 - x / y); // Сама формула
write(z); // Выводим ответ
end. // Конец программы