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