854 секунд
здесь ограничение на мин ввод 20 сим
2)
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
1) 111 010 110 111
2) 6706 = 6×8^3 + 7×8^2 + 6×1 = 3526
3) 61(8) = 6×8 + 1 = 49(10) = 31(16)
4) 111 110 010
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.