Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/40: Рейтинг темы: голосов - 40, средняя оценка - 4.80
TG
0 / 0 / 0
Регистрация: 07.05.2018
Сообщений: 2

Как можно объяснить и исправить ошибку в программе?

07.05.2018, 15:19. Показов 8093. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program n_4; 
var x, a, b, c, s: integer; 
begin 
writeln('Нахождение суммы цифр трёхзначного числа');
write ('Введите исходное число»'); 
readln(x) 
a:x= div 100
b:=x mod 100 div 10; 
c:=x mod 10;
 s:= a+b+c; 
writeln ('s=', s) 
end.
Пожалуйста помогите.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.05.2018, 15:19
Ответы с готовыми решениями:

Исправить ошибку в программе про матрицы
Там задача, вывести введенные цифры в матрицу, а потом во второй матрице, отрицательные в квадрат, а положительные в куб. Но возникает...

Сортировка выбором (исправить ошибку в программе)
просьба найти ошибку в программе и сказать что и где надо дополнить/исправить Задача: Дан массив, состоящий из записей. Каждая запись...

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

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
07.05.2018, 15:26
Просто сравните 2 кода и сами поймете какие ошибки были в коде.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program n_4;
var x, a, b, c, s: integer;
begin
writeln('Нахождение суммы цифр трёхзначного числа');
write ('Введите исходное число»');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln ('s=', s)
end.
1
TG
0 / 0 / 0
Регистрация: 07.05.2018
Сообщений: 2
07.05.2018, 15:32  [ТС]
Большое спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.05.2018, 15:32
Помогаю со студенческими работами здесь

Исправить ошибку в программе вычисления значения выражения
написать программу на паскале вот program Name1; var p, a, x, α : real;

Исправить ошибку в программе. Замена чисел в матрице
Мне нужно что бы это все работало через процедуры и функции, я вроде сделала, но где то ошибка ( uses crt; type matrica = array of...

В моей программе пишет ошибку: неверое число параметром функции. Как это исправить?
var a:integer; //процедура procedure donumb(i:integer; var n,b,d:integer); begin //выявление количества значений этого числа ...

Исправить ошибку в программе
program Lab3_3; var N, k, Summa: integer; begin writeln ('Лабораторная работа № 3, задание 3'); writeln('Введите целое...

Исправить ошибку в программе Конфетти
Программа рисует конфетти из заданного количества элементов Что в программе неправильно?program b_3; uses graph,crt; var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru