ng=0>
P: = 1
B: = 1
) + s
var a, b, p: integer;
begin clrscr;
p: = 1;
readln (a);
for b: = 1 to a do if (1 <= a) and (a <= 20) then
p: = p * a;
writeln (p);
readln;
end. <В
P: = p * a
(Вводимо значення 4)
Відповідь: 256
В
В В
Завдання 6.Напечатать програму, що друкує таблицю значень функції y = cos2x на відрізку [0; 1] з кроком h = 0,1
Program as; Блок-схема
Uses crt;
Var y, x: real;
X: = 0
Begin clrscr;
X: = 0;
While x <= 1 do begin y: = cos (2 * x);
Writeln (y: 5:2);
Y: = cos (2 * x)
X: = x +0,1
X: = x +0,1;
End;
End.
Завдання 7.Напечатать програму, обчислення факторіала
Program as; Блок-схема
Uses crt;
Var i, n: integer;
F: = 1;
I: = 1;
f: real;
Begin clrscr;
Readln (n),
F: = +1; i: = 1;
While i <= n do begin f: = f * i;
F: = f * I;
I: = succ (i);
i: = succ (i);
end;
Writeln ('факторіал від ', n,' дорівнює ', f);
End.
Завдання 8.Программа підрахунку суми S перших 1000 членів гармонійного ряду 1 +1/2 +1/3 + ... +1/N
Program as; Блок-схема
Uses crt;
S: = 0;
N: = 0;
Var s: real;
N: integer;
Begin clrscr;
S: = 0; N: = 0;
While n <1000 do begin N: = n +1;
S: = s +1/N;
End;
N: = n +1;
S: = s +1/N;
p> Writeln (s);
Readln;
End.
В
Завдання 9.Вичісліть найбільший спільний дільник двох натуральних чисел А і В.
Program as; Блок-схема
Uses crt;
Var a, b: integer;
Begin clrscr;
writeln ('Введи 2 натур. Числа ');
readln (a, b);
While a <> b do if a> b then a: = a-b
Else b: = b-a;
A: = a-b
B: = b-a
Writeln ('НСД =', a);
Readln;
End.
В
Заданіе10. Дано цілі числа А і В (а> b). Визначити: Результат цілочисельного ділення А на В, без використання стандартну операцію цілочисельного ділення
Program as; Блок-схема
Uses crt;
Var a, b, n: integer;
Begin clrscr;
writeln ('Введи 2 числа, a> b ');
readln (a, b);
N: = n +1;
A: = a-b;
n: = 0;
While a <= b do begin
N: = n +1;
A: = a-b;
End;
Writeln ('результат =', n);
Readln;
End.
Заданіе11.Напішіте програму, яка вводить цілі числа з клавіатури і складає їх, поки не буде введено число 0
Program as; Блок-схема
Uses crt;
Var N, s: integer;
S: = 0;
