program konfety;
var t: real;
i: integer;
begin
WriteLn(Введите стоимость 1 кг конфет (в рублях): );
Read(t);
for i := 1 to 10 do
WriteLn(Стоимость , i, кг конфет: , i*t);
end.
Смысл такой: - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла
.
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной то значение, которое мы ввели.
Далее идет цикл , который по сути вот что делает:
Для каждого целого i от 1 до 10 сделай вот что:
Выведи на экран строку Стоимость , потом значение i, потом строку кг конфет: , потом число i умноженное на t
После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
А дальше у нас end (последний end. всегда с точкой).
Конец.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.