Изначально, была такая: на вход программы подается натуральное число. требуется написать программу, которая определяет составное или простое число на входе и выводит сумму его цифр. я написал первую часть программы (без вывода суммы цифр) : program sg3; uses crt; var i,a,k: integer; begin clrscr; write('введите число: '); readln(a); k: =0; for i: =2 to a div 2 do if a mod i =0 then k: =k+1; if k=0 then write('простое') else writeln('составное'); readln; end. допишите код, который бы выводил сумму цифр,паскаль
соня1583
2
10.06.2019 09:50
0
Другие вопросы по теме Информатика
DisbeliefPapyrus
18.06.2019 16:30
fedorinovkirs
18.06.2019 00:30
почмат
10.06.2019 02:00
уляотличница
10.06.2019 02:00
MashaFox25
16.09.2019 16:30
jonhcenapampam22222
16.09.2019 16:30
tolstuhen
20.05.2019 18:40
dasha199616
20.05.2019 18:40
Популярные вопросы
- При прокаливании 400г натриевой селитры получили 33,6 л кислорода. Какова...
2 - 1)-х^2-11х+38. 2)х^2+18. 3)х^2-12х . 4)-х^2+18х кім жауап берсе подписка,ком,лайк....
2 - Найди, с какой силой притягиваются друг к другу два астероида, массы которых...
2 - К неблагоприятным атмосферным явлениям в нашей местности относятся заморозки....
2 - 7 желтоксан 8 сынып казак тилинен бжб 4 тапсырма комектесып жберындепш...
2 - 1)Определите степень окисления фосфора в соединениях H3PO3, PH3, Na3PO4 *...
1 - установи соответствие химического опыта и наблюдаемых изменений...
2 - сор по русскому дайте только ответы правильные ...
2 - тепловая машина использует нагреватель с температурой 300 градусов и холодильник...
2 - таблица снизу не могу решить ее по казахскому языку...
1
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
end.