Задание:
1. Найти сумму четных цифр числа.2. Вывести на экран таблицу умножения.3. Найти все двухзначные числа, сумма которых равна а.4. Найти количество и сумму четных делителей. Все через цикл.
Решение:
1. Найти сумму четных цифр числа.uses crt; var a,x: integer; i,s: integer; beginclrscr; writeln ('Vvedite chislo'); readln (a); x: =a; s: =0; while (x<>0) dobeginif x mod 2=0 then s: =s+(x mod 10); x: =x div 10; end; writeln ('Summa=', s); readln; end. 2. Вывести на экран таблицу умножения.uses crt; var a: array [1… 10,1… 10] of integer; i,j: integer; beginclrscr; for i: =2 to 10 dobeginwriteln; for j: =1 to 10 dowrite (i*j,'); end; writeln; readln; end. 3. Найти все двухзначные числа, сумма которых равна а.uses crt; var a,x,i,s: integer; beginclrscr; writeln ('Vvedite a'); readln (a); for i: =10 to 99 dobeginx: =i; s: =0; while (x<>0) dobegins: =s+(x mod 10); x: =x div 10; end; if s=a then write (i,'); end; readln; end. 4. Найти количество и сумму четных делителей.uses crt; var s,k,i,a: integer; beginclrscr; writeln ('Vvedite chislo'); readln (a); i: =2; s: =0; k: =0; while i<>a dobeginif (a mod i=0) and (i mod 2=0) thenbegins: =s+i; k: =k+1; end; i: =i+1; end; writeln ('Summa chisletelei=',s); writeln ('Kolichestvo delitelei=',k); readln; end.
Знаете другой ответ?