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
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
267810/3=89270 остаток 0
89270/3=29756 ост.2
29756/3=9918 ост.2
9918/3=3306 ост.0
3306/3=1102 ост.0
1102/3=367 ост.1
367/3=122 ост. 1
122/3=40 ост. 2
40/3=13 ост. 1
13/3=4 ост 1
4/3=1 ост1
<span>267810</span>₁₀=111121100220₃
1.подмножество;2.множество;3.Пересечение;4.схема;5.объединение;6.эйлер;7.отношения;8.объект.
Как у тебя массив называется и что за язык программирования?