написать программу на Паскале: "ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в
10-11 класс
|
последовательность не входит"
program p;
var a,b: integer;
begin
a:=1;
repeat begin
writeln('Введите число: ');
readln(b); if b<0 then a:=a*b;
until b=0; writeln('Ответ:',a);
readln; end.
Другие вопросы из категории
предположения о распределении мест в дальнейших состязаниях. Один считает, что первой будет Наташа, а Маша будет второй. Другой болельщик на второе место прочит Люду, а Рита, по его мнению, займет четвертое место. Третий любитель тенниса с ними не согласился. Он считает, что Рита займет третье место, а Наташа будет второй. Когда соревнования закончились, оказалось, что каждый из болельщиков был прав только в одном из своих прогнозов. Какое место на чемпионате заняли Наташа, Маша, Люда, Рита? ПОЖАЛУЙСТА ПОМОГИТЕЕЕ!!!
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Найти сумму
1,1-1,2+1,3.......1.n
n- целое, вводится с клавиатуры
Условие: Найти и вывести максимальный элемент кратный N.
N вводится с клавиатуры.
целых ненулевых чисел вводится с клавиатуры. Окончанием последовательность
является 0. Определите
произведение чисел, которые делятся на 5