Предмет: Информатика,
автор: Нюшка2002
Pascal подробно
С клавиатуры вводится целое положительное (может быть равно 0) число С, не превышающее 30 000. Напиши программу, которая считает и выводит на экран количество нечётных цифр числа С.
Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.a_1 = 0, d = 7, a_n = 98 a1=0,d=7,an=98.
Ответы
Автор ответа:
1
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.
Во второй не совсем понял условие, но если попробуете переписать, то я доделаю)
Нюшка2002:
Спасибо большое, вот вторая задача
Интересные вопросы
Предмет: Математика,
автор: savellimashnin88
Предмет: Українська мова,
автор: marifshaa
Предмет: Английский язык,
автор: svtgjhf2wp
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: яша1365