Вывести первые n натуральных чисел, сумма цифр которых нечётная. паскаль. через вложенные циклы со счетчиком.

Ответы

Ответ дал: ShHanddW

Var n,i,a,k,s: integer; begin write('n = '); readln(n); k: =0; i: =0; while k< n do begin i: =i+1; s: =0; a: =i; while a> 0 do begin s: =s+a mod 10; a: =a div 10; end; if s mod 2 < > 0 then begin write(i,' '); k: =k+1; end; end; end. пример: n = 20 1 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38

Спасибо

Ответ дал: Гость

в чем отличие пользователя от программиста если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от способов их создания. же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. причем системные программисты в основном программы для компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. в принципе, всех, кто работает с компьютером можно разделить на три категории: 1. программисты, программы для облегчения труда других пользователей. 2. программирующие пользователи, которые программы для решения своих , облегчения собственного труда. 3. непрограммирующие пользователи, желающие решать свои , используя уже существующие программы, не занимаясь программированием.

Ответ дал: Гость

program xxx; var a,b, c : integer; begin

writeln('введите 3 числа-');

read(a,b,c); if a> =0 then a: = sqr(a);

if b> =0 then b: = sqr(b);

if c> =0 then c: = sqr(c);

writeln('ответ: ');

write(a, b, c);

readlnend.