1) Возьми 3 (=3).
2) прибавь 3 (=6).
2) умножь на 3 (=18).
Если только указанные команды, то
1. Умножь на 2 (=6).
2. Умножь на 2 (=12).
3. Вычти 3 (=9).
4. Умножь на 2 (=18).
Program kolco;
var t,d:integer;
S:real;
begin
writeln ('Введите толщину кольца');
readln (t);
writeln ('Введите диаметр внутреннего круга кольца');
readln (d);
S:=pi*sqr(t+d/2)-pi*sqr(d/2);
write ('Площадь кольца равна ',S,' сантиметров квадратных');
end.
Ну должно быть В*417525, т.е. Кол-во машин на стоимость одной (умножить)
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4