= a * a * a
S: = 4 * a * a
writeln ('Bведі довжину ребра куба ');
readln (a);
v: = a * a * a;
s: = 4 * a * a;
writeln ('обсяг =', v, 'площ.бок.пов. =', s);
readln;
end.
(Вводимо значення 5)
Відповідь: v = 125, s = 100
Завдання 8. Скласти алгоритм обчислення y = 2 2 * ((a + b)/2)
program as; Блок-схема
uses crt;
var a, b, c: integer; d, y: real;
begin clrscr;
writeln ('Введи значення а, b ');
readln (a, b);
C: = a + b
c: = a + b;
D: = c/2
d: = c/2;
y: = sqr (2) * d;
Y: = (2 * 2) * d
writeln (y: 5:2);
readln;
end.
(Вводимо значення 5,5)
Відповідь: 20
Завдання 9.Ізвестна довжина окружності.Найті площа кола, огранич. цим колом
program as; Блок-схема
uses crt;
var a, b: real;
begin clrscr;
writeln ('Введи довжину окужності ');
readln (a);
B: = (A * A) * PI
b: = (a * a) * pi;
writeln ('Знайти S кола =', b: 5:2);
end.
(Вводимо значення 5)
Відповідь: 78,5
Заданіе10. Дано натуральне число n (n> 9). Знайти число одиниць в ньому
program as; Блок-схема
uses crt;
var a, d: integer;
begin clrscr;
writeln ('Введи натуральне чісно ');
readln (a);
D: = a mod 10
d: = a mod 10;
writeln ('Кількість одиниць в ньому = ', d);
readln;
end.
В
(Вводимо значення 6)
Відповідь: одиниць = 6
Заданіе11.Дано відстань у сантиметрах. Знайти число повних метрів в ньому. br/>
program as; Блок-схема
uses crt;
var a, m: integer;
begin clrscr;
writeln ('Введи відстань у сантиметрах ');
readln (a);
M: = a div 100
m: = a div 100;
writeln ('Отримай відстань у метрах', m);
readln;
end.
(Вводимо значення 200)
Відповідь: 2м
Заданіе12. Скласти алгоритм обчислення y = 7x 2 -3x +6
program as; Блок-схема
uses crt;
var x, y: integer;
begin clrscr;
writeln ('Bведі значення х ');
C: = 7 * x * x
D: = 3 * x
readln (x);
y: = 7 * (sqr (x)) -3 * x +6;
writeln ('Y =', y);
Y: = C-D +6
readln;
end.
(Вводимо значення 6)
Відповідь: 240
Заданіе13.Каков об'єм кисню, що міститься в кімнаті розміром a * b * c, якщо кисень становить 21% об'єму повітря?
program as; Блок-схема
uses crt;
var a, b, c, v: real;
begin clrscr;
writeln ('Bвeді a, b, c');
readln (a, b, c);
V: = 0.21 * a * b * c
v: = 0.21 * a * b * c;
writeln ('об'єм кисню =', v);
readln;
end.
(Вводимо значення 5,6,7)
Відповідь: 4.41
Заданіе14. Скласти алгоритм обчислення A = x 2 + bx/2
В
program as; Блок-схема
