Ответы
Ответ дал:
0
Программа на языке Турбо Паскаль 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.//Конец программы
Вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры:
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.//Конец программы
Ответ дал:
0
не понял попробовал вбить в поскаль ABC не получается
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад