Дано натуральное четырехзначное число n. найти сумму его цифр.

151

322

Посмотреть ответы 3

Ответы на вопрос:

saida2514

Информатика

4,8(11 оценок)

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

taetae8

Информатика

4,8(57 оценок)

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

nastenadanil2698

Информатика

4,4(2 оценок)

Вцелом программа рабочая, за исключением одного маленького блока, т.к. не могу прописать условие нормально: с я указала комментарии к частям кода, в том числе и к тому самому блоку. если кто знает, как его составить - отпишитесь: ) const n=5; function prime(a: integer): boolean; //функция определяет, является ли число простым var i,n: integer; begin prime: =false; if (a< 2) then exit; if (not odd(a)) and (a< > 2) then exit; for i: =3 to trunc(sqrt(a)) do begin if a mod i = 0 then exit; inc(i,2); end; prime: =true; end; var a,b,c: array[1..n] of integer; i,j,p,min,max: integer; begin for i: =1 to n do a[i]: =random(10); //заполняем массив write('исходный массив: '); for i: =1 to n do write(a[i]: 5); //выводим массив на экран writeln; min: =a[1]; max: =a[1]; //ищем минимальное и максимальное значение for i: =1 to n do if (a[i]> max) then max: =a[i]; for i: =1 to n do if (a[i]< min) then min: =a[i]; write('минимальное: ',min,' максимальное: ',max); //выводим эти значения на экран writeln; for i: =1 to n do if (prime(a[i])) or (a[i]=1) and (a[i]< > 2) then //заполняем массив с простыми числами, которые входят в массив а c[i]: =a[i]; write('простые числа в массиве а: '); for i: =1 to n do write(c[i]: 5); //выводим массив с на экран writeln; j: =min; // весь вопрос в этом небольшом блоке, заполнить массив в числами от min до max(которые уже найдены), не входящими в массив с for i: =1 to n do begin if (prime(j)) and (j< > c[i]) and (j< > 2) then b[i]: =j; inc(j); end; for i: =n-1 downto 1 do begin //сортируем по возрастанию for j: =1 to i do if (b[j]> =b[j+1]) then begin p: =b[i]; b[i]: =b[i+1]; b[i+1]: =p; end; end; write('искомый массив: '); for i: =1 to n do write(b[i]: 5); //выводим массив в на экран writeln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.