Предмет: Информатика, автор: Нюшка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.

Ответы

Автор ответа: Loinx
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: Спасибо большое, вот вторая задача
Нюшка2002: Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98
Нюшка2002: Программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98
Loinx: спасибо, понял, сейчас начну)
Loinx: Создайте, пожалуйста вторую тему. Просто я редактировать ответ уже не могу)
Нюшка2002: Всё, спасибо, уже не надо, додумалась)
Loinx: аа, ок)
Интересные вопросы
Предмет: Математика, автор: savellimashnin88