Паскаль Решить задачи. 1. Дано трёхзначное число. Определить, сколько раз в нём встречается цифра 3.
2. Дано натуральное число. Получить все его делители и найти их сумму.
- 1)program qq;var a,b,c,d,e,i:integer;beginreadln(a);if (a > 999) or ( a < 100) then writeln ( ‘error’) elsebegin b:= a mod 10;c:= a div 10 mod 10;d:= a div 100 mod 10;e:= 0;if d = 3 then e:= e+1;if b = 3 then e:= e +1;if c = 3 thene:= e +1;writeln ( e);end;end.2)program qq;var a,b,c,d,e,i:integer;beginreadln ( a);for i:= 1 to a dobeginif a mod i = 0 thenwriteln (i);end;
end.