1.
program _1;
var a,b,s:real;
begin
writeln('Вычисление площади прямоугольника.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
s:=a*b;
writeln('Площадь прямоугольника: ',s:5:2 ,' кв.ед.');
end.
2.
program _2;
var a,b,c,v:real;
begin
writeln('Вычисление объема параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
v:=a*b*c;
writeln('Объем: ',v:5:2 ,' куб.см.');
<span>end.
</span>
3.
program _3;
var a,b,c,s:real;
begin
writeln('Вычисление объема площади параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
s:=2*(a*b+a*c+b*c);
writeln('Объем: ',s:5:2 ,' кв.см.');
end.
4.
program _4;
var a,v:real;
begin
writeln('Вычисление объема куба.');
writeln('Введите исходные данные:');
write('Введите длину ребра (см): '); readln(a);
v:=a*a*a;
writeln('Объем куба: ',v:5:2 ,' куб.см.');
end.
5.
program _5;
var a,b,k1,k2,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Кол-во тетрадей: '); readln(k1);
write('Цена карандаша(руб): '); readln(b);
write('Кол-во карандашей: '); readln(k2);
s:= a*k1+b*k2;
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.
</span>
6.
program _6;
var a,b,k,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Цена обложки(руб): '); readln(b);
write('Кол-во комплектов: '); readln(k);
s:= k*(a+b);
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.</span>
Template <typename T>
inline T const& LinearRoot (T const& y, T const& k, T const& b) {
return (y - b) / k;
}
Ответ:
Объяснение:
появится ошибка в строке x:4
после того как поправишь ее на x:=4
а write на writeln
последовательно появятся
4
16
64
Как то так
3. 5,8
7. б
8. 16
Var a:real;
i:integer;
begin
a:=1;
for i:=1 to 100 do
begin
a:=i*a;
writeln(a);
end;
end.