Сделайте программу паскаль авс 1) даны стороны треугольника. найти его периметр. 2) известна стоимость 1 кг конфет, печенья и яблок. найти стоимость всей покупки, если купили х кг конфет, у кг печенья и z кг яблок. 30 чтобы заварить 1,5 л чая, нужно 30 г сухого чая. чайник вмещает в л. сколько нужно чая для заварки?
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40
var a,b,c:integer;
begin
write('storona 1 ='); readln(a);
write('storona 2 ='); readln(b);
write('storona 3 ='); readln(c);
writeln('Perimetr =', a+b+c);
end.