Написать код в паскале
ни как не могу понять что нужно вписывать
начала когда есть,а вот что делать дальше не пойму
var a, b , h ,r: real;
begin
a: = pi / 3;
b: = 2*pi / 3;
h: = ( 2*pi/3 - pi / 3 ) / 20;
r: =a;
writeln ('a=', a: 0 : 3, ' b=' , b: 0: 3 );
while (r< =b) do ;
begin
Люди завжди хотіли передбачити своє майбутнє. Іноді прогнози їхні збувалися, але частіше – ні. Стали реальністю мрії про водні машини, польоти в космос та на інші планети. Та сьогодні ми знову мріємо!
гаючи за життям людей, я часто замислююсь над тим, що чекає наше людство в майбутньому. Іноді мені здається, що ніколи не буде воєн, що людина не долетить знищення всього живого на Землі.
Хочеться вірити, що всі люди будуть жити у злагоді з навколишнім світом, зі своєю совістю. Але виходячи на вулицю, я часто бачу нікому не потрібних дітей, старих людей. Часто бачу по телевізору катастрофи в шахтах, падіння літаків.
Гинуть люди, тварини, ріки. І тоді мені здається, що людство не має майбутнього. Однак будемо вірити, що матінка-земля і природа – вічні, що людська душа – безсмертна. І нехай щастям та радістю стане майбутнє часто нерозумних дітей-землян