сервис вопросов и ответовИзначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет составное или простое число
10-11 класс|
|
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
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.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
Nurida99
01 февр. 2014 г., 2:58:49 (10 лет назад)
Vedm04ka1998
01 февр. 2014 г., 4:03:26 (10 лет назад)
program sg3;
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.
Ответить
Другие вопросы из категории
Даша записалась на кружок рисования и первым ее заданием стало нарисовать красивые горы Алматы. В Алматы имеется N гор, в каждую можно представить в виде
равнобедренного прямоугольного треугольника с гипотенузой, расположенной на оси х. Даша ограничена в средствах, поэтому она хочет узнать точное количество краски, которое ей понадобится. Помогите Даше, найдите площадь гор, для того чтобы рассчитать количество необходимой краски
помогите пожалуйста.
Дан массив {Tij}, состоящий из n строк, l столбцов. Найти сумму положительных элементов, имеющих нечетный номер.
Какое значение будет выведено в результате исполнения алгоритма ?
Нач
к:=2; к1:=1; с:=59
Нц для I от 50 до 164
С:=с+к*I; k:=k+k1; k1:=-k1
Кц
Выаод с
Кон
Ответы 1) 30762 2) 30764 3) 30766 4) 30768 5) 30770
Читайте также
Требовалось написать программу, которая вводит с клавиатуры
координаты точки на плоскости (х,у — действительные числа) и определяет
принадлежность точки заштрихованной области, включая ее границы. Программист
торопился и написал программу неправильно.
У исполнителя Альфа две команды, которым присвоены номера:1. прибавь 12. умножь на b(b – неизвестное натуральное число; b ≥ 2)Выполняя первую из них,
Альфа увеличивает число на экране на 1, авыполняя вторую, умножает это число на b .Программа для исполнителя Альфа – это последовательность номеровкоманд.Известно, что программа 11211 переводит число 6 в двузначное число.Определите наибольшее возможное значение b .
Требовалось написать программу,при выполнении которой с клавиатуры вводится натуральное число,не превосходящее 10^8, и выводится его первая цифра.Ученик
написал такую программу:
var n:longint;
begin
read(n);
while n>10 do
begin
n:=n mod 10
end;
write(n);
end.
1)Напишите,что выведет эта программа при вводе числа 1984.
2)Приведите пример числа,при вводе которого программа выдаст верный ответ.
3)Найдите в программе все ошибки.
Требовалось написать программу, которая решает неравенство «ах+b<0» относительно х для любых чисел а и b, введенных с клавиатуры. Все числа считаются
действительными. Программист торопился и написал программу неправильно.
Помогите пожалуйста написать программу в паскале.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Вы находитесь на странице вопроса "Изначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет составное или простое число", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.