noeva2005
16.04.2022 03:08

Pascal подробно
с клавиатуры вводится целое положительное (может быть равно 0) число с, не превышающее 30 000. напиши программу, которая считает и выводит на экран количество нечётных цифр числа с.

напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.a_1 = 0, d = 7, a_n = 98 a1=0,d=7,an=98.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Qwer948
11.10.2020 00:03

1.

var C,S:integer;

Begin

S:=0;

read(C);

While (C > 0) do begin

if (((C mod 10) mod 2) = 1) then

S:=S+1;

C:=(C div 10);

end;

write(S);

End.

Во второй не совсем понял условие, но если попробуете переписать, то я доделаю)

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота