ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. Найдите произведение нечетных чисел.найдите
5-9 класс
|
кол-во отрицательных чисел.
uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do
Begin
if (a mod 2<>0) then x1:=x1*a;
if (a<0) then x2:=x2+1;
readln(a);
end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.
Другие вопросы из категории
1)На столе стояло 3 стакана с вишней .Оксана съела 1 стакан вишни .Сколько стаканов осталось ?
2)Зажгли 7 свечей ,2 из них погасли .Сколько свечей осталось ?
3)Чем кончается день ?Ночь ? Чем кончается лето и начинается осень ?
Читайте также
4. Компьютер перебирает четные числа до тех пор, пока сума их квадратов не превысит S. Чему равна сумма квадратов?
Подсказка:
Начальное значение переменной цикла – 2. Шаг изменения – 2 (перебираем четные числа).
Считаем сумму квадратов до тех пор пока она меньше или равна S.
Вывод на экран :
Результат:
s =
Тест 1:
Исходные данные:
s = 24
Результат:
s =56
Тест 2:
Исходные данные:
s = 85
Результат:
s =120
чило меньше","Мое число больше","Вы угадали".процесс повторяется до тех пор пока не будет угадано число.
помогите на паскале сделать
с клавиатуры вводится число х. если остаток от деления х на 6 равен 2, то значение f(x)=4*x^2 если остаток от деления х на 6 равен 3, то значение f(x) = корень из х , если остаток от деления на 6 =0 то f(x) = x.
Написать программу в паскале используя операторы if и else . Нарисовать блок схему