ПОМОГИТЕ С ПАСКАЛЕМ ПОЖАЛУЙСТА Составить программу Для введённых с клавиатеры чисел каждое число умножить на предыдущее. Вывести на печать результат вычислений. Количество чисел ограничено вторым введённым числом
Это же надо так навертеть условие. Всего-то требуется ввести два числа и вывести их произведение.
Современные школы) Воды много, толку мало.
Это да... особенно на олимпиадах. Условие на целый лист, решение в пять-семь строчек.
Тебе расскажут про Петю, Васю, Наташу, их дедушек, мамонтов, Мировой океан, а потом попросят найти сумму числовой последовательности.
Какой-то засидевшийся в кресле "светлый ум" решил, что так детям понятнее и интереснее.
Вот - https://znanija.com/task/29939474 - пять раз закинули это задание, причем, разные люди. Всего-то требуется посимвольно сравнить две строки и выдать отношение количества несовпадений к длине строки. Да еще и саму длину строки зачем-то задают, когда она ясна из значения строк.
begin
Print(ReadlnInteger('1-е число:') * ReadlnInteger('2-е число:'))
end.
Program pas var a, b, c: integer; begin writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); c:= b*a; writeln('Результат=', c); end.