1.напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.
2.с клавиатуры вводится целое положительное (может быть равно 0) число с, не превышающее 30 000. напиши программу, которая считает и выводит на экран количество нечётных цифр числа с.

pascal

holoyf holoyf    3   18.12.2019 20:28    2

Ответы
ПётрФ ПётрФ  10.10.2020 21:41

===== PascalABC.NET =====

begin

 // 1

 Range(0, 98, 7).Println;

 // 2

 var n := ReadInteger('n =');

 var k := 0;

 while n > 0 do

 begin

   if Odd(n mod 10) then

     k += 1;

   n := n div 10  

 end;

 k.Println

end.


1.напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической пр
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика