Найдите произведение всех двузначных нечетных натуральных чисел

167

457

Посмотреть ответы 2

Ответы на вопрос:

Gllodory

Информатика

4,6(59 оценок)

Программа на языке турбо паскаль 7.0 вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры: program q; // начало любой программы uses crt; // подключение модулей var a,a1,b,c: integer; // ввод переменных целочисленного типа begin // начало исполняемого кода c: =1; // присваиваем переменной с, хранящей произведение значения 1 если этого не сделать, то не сработает счетчик. writeln; // выводит надпись readln (a1); // считывает число, каторое вы ввели и присваевает переменной a1 его значение for a: =1 to a 1 do begin// начинает цикл от, повторяющийся нужное количества раз. writeln; // выводит надпись readln (b); // считывает введенное число и присваевает его значение переменной b if (b< 100) and (b> 9) and (b mod 2=1) then c: =c*b; //оператор условия. проверяет, двузначное ли это число ( больше 9 и меньше 100 ) и проверяет,нечетное ли оно по остатку от деления на 2 //если да,то присваевает с значение c*b.в первый раз это будет 1*b, во второй,то,что получилось, умножить на следующее b и т.д. end; // заканчивает цикл writeln( 'произведение равно: ', c); //выводит результат readln; //ждет нажатия на enter end.//конец программы