Определить, является ли сумма цифр числа двухзначным числом

@Бездарь · Регистрация: 10.06.2010

Author24 — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pr1;
uses crt;
var a,b,c,m,p:integer;
begin
clrscr;
textcolor(99);
textbackground(56);
writeln ('дано двху значное число определить является ли  сумма его цифр двух значным числом»');
readln (a);
c:=a div 10;
m:=a mod 10;
p:=c+m;
writeln(c+m);
if (b>9) then b:=(p);
writeln ('да');
begin
end;
if (b<9) then  b:=(p);
writeln('*нет');
readkey;
end.

@Puporev · 05.10.2010, 17:45

Pascal
1
2
3
4
p:=c+m;
writeln(p);
if (p>9) then writeln ('да');
else writeln('нет');

@Бездарь · 05.10.2010, 17:54 **[ТС]**

ОШИБКА 113 Ошибка в инструкции в строчке else
СЕРЫЙ ХАРЕ СИДЕТЬ ЧЕРЕЗ МОЙ АККАУНТ ИЛИ Я БУДУ выНУЖДЕН СМЕНИТь ПорОлЬ

@Mad_Dog · 05.10.2010, 17:57

Точку с запятой убери
if (p>9) then writeln ('да');

Новые блоги и статьи Все статьи Все блоги /
Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .	Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

@Бездарь 0 / 0 / 1 Регистрация: 10.06.2010 Сообщений: 31
	05.10.2010, 17:54 [ТС]	3
	ОШИБКА 113 Ошибка в инструкции в строчке else СЕРЫЙ ХАРЕ СИДЕТЬ ЧЕРЕЗ МОЙ АККАУНТ ИЛИ Я БУДУ выНУЖДЕН СМЕНИТь ПорОлЬ 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	05.10.2010, 17:57	4
	Точку с запятой убери if (p>9) then writeln ('да'); 0

Опции темы

Определить, является ли сумма цифр числа двухзначным числом

Решение