program rev;
var
weight, price, revenue: integer;
begin
write('Введите количество урожая, которое собрал фермер(кг): ');
readln(weight);
write('Введите цену за 1 кг картофеля: ');
readln(price);
revenue := weight * price;
write('Выручка составила: ', revenue);
end.
Объяснение:
program rev; // Название программы
var
weight, price, revenue: integer; // Создание целочисленных переменных:
weight - вес урожая, который собрал фермер;price - цена картофеля за 1 килограмм;revenue - выручка с продажи картофеля.begin // Начало программы
write('Введите количество урожая, которое собрал фермер(кг): '); // Вывод сообщения в консоль
readln(weight); // Считываем с клавиатуры вес урожая
write('Введите цену за 1 кг картофеля: '); // Вывод сообщения в консоль
readln(price); // Считываем с клавиатуры цену картофеля за 1 килограмм
revenue := weight * price; // Рассчитываем выручку с продажи картофеля по формуле: выручка = вес * цена за 1 кг
write('Выручка составила: ', revenue); // Вывод сообщения в консоль и значение переменной revenue (выручка)
end. // Конец программы
Программа "Буква Т"
нач
шаг
шаг
шаг
шаг
поворот
прыжок
прыжок
поворот
шаг
шаг
шаг
шаг
кон
Стрелочка будет находиться наверху, смотреть вправо
Программа "Буква Н"
нач
поворот
поворот
поворот
шаг
шаг
шаг
шаг
поворот
поворот
прыжок
прыжок
поворот
поворот
поворот
шаг
поворот
прыжок
прыжок
поворот
поворот
шаг
шаг
шаг
шаг
кон
Стрелочка находится наверху, смотрит справо
var i, col, ans:integer;
begin
ans:=0;
col:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] < 0 then
begin
col:=col+1;
ans:=ans+a[i];
end;
end;
writeln(ans/col);
end.