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