program cube; var a,s,v:real; begin; write('Введите длину ребра куба: '); read(a); v:=power(a,3); s:=6*sqr(a); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Второе задание:
program par; var a,b,c,s,v:real; begin; write('Введите стороны a,b,c: '); read(a,b,c); v:=a*b*c; s:=2*(a*b+b*c+a*c); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Третье и четвёртое задания:
program mult; var r,a,b,c:real; begin; write('Введите три числа: '); read(a,b,c); r:=a*b*c; write('Произведение чисел равно ',r); end.
Наша жизнь полна разных трудностей(знаю звучит абсурдно но не обессуть). Есть разные предметы по которым (в основном технологические) иногда требуется составление таблицы. Конечно для каждого кажется легче свой кому-то легче учить сплошным текстом, кому то легче таблицами или схемами. Но, по моему намного легче учить таблицами. Кроме того таблицы нужны не только для учёбы ,но и для работы например: тебе нужно написать отчёт по работе, и конечно будет намного легче для понятия если ты напишешь это в виде таблицы или схемы чем свободным текстом. Ещё например в жизни могут понадобятся таблицы для того чтобы составить решить задачу-вот для чего нужны таблицы.
program cube;
var a,s,v:real;
begin;
write('Введите длину ребра куба: ');
read(a);
v:=power(a,3);
s:=6*sqr(a);
write('Площадь равна ',s,', а объём равен ',v,'.');
end.
Второе задание:
program par;
var a,b,c,s,v:real;
begin;
write('Введите стороны a,b,c: ');
read(a,b,c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
write('Площадь равна ',s,', а объём равен ',v,'.');
end.
Третье и четвёртое задания:
program mult;
var r,a,b,c:real;
begin;
write('Введите три числа: ');
read(a,b,c);
r:=a*b*c;
write('Произведение чисел равно ',r);
end.