Var a,b,c,x,a1,b1,c1:integer;
begin
writeln('Введите стоимость тетрадей');
readln(a1);
writeln('Введите кол-во тетрадей');
readln(a);
writeln(''Введите стоимость ручек');
readln(b1);
writeln('Введите кол-во ручек');
readln(b);
writeln('Введите стоимость карандашей');
readln(c1);
writeln('Введите кол-во карандашей');
readln(c);
x:=(a*a1)+(b*b1)+(c*c1);
writeln(x' руб.',);
end.
Исходный массив:
1 2 3 4 5 6 7 8 9 10 11
Далее, каждому элементу начиная с нулевого, присваиваем значение массива с таким же индексом, но считая с конца и получаем:
11 10 9 8 7 6 7 8 9 10 11
Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш
2
вот 51 52 53 54 55 56 57 58 59
выбирай
На той шкатулке где написано слово изумруд(там нет изумруда) , а на другой где ничего не написано или написано что-то другое (изумруд там есть)
Я так думаю :)