Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Пенёк155
19.05.2022 04:23 •
Информатика
Написать в программе паскаль: дано целое число. если оно двузначное, найти сумму его цифр.
Показать ответ
Ответ:
Germionochka
17.07.2020 12:48
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
SASHEKA
12.04.2023 22:18
Саша увлекается каллиграфией. Ему нравится писать длинные слова (от 10 букв), чтобы можно было похвастаться красивым почерком. А ещё ему нравятся слова из чётного количества букв...
lerafrank26022
26.03.2021 14:58
Народ нужна по задачам связанным с Паскалем. Напишите код для 4,5,6,7 хотябы одному из этих задач....
Pemo
08.03.2022 22:09
Найди сумму двух чисел, введенных с клавиатуры. Решение: 1)a = int(input( Введите число a: )) b = int(input( Введите число b: )) sum = a+b print(“a+b= “, sum) Задание: дополни программу...
ники2017
04.01.2022 01:29
ИНФОРМАТИКА 8 КЛАСС Пусть a, b, c -логические величины, которые имеют следующие значения: a=ИСТИНА, b=ЛОЖЬ, с=ИСТИНА. Постройте таблицы истинности для логических формул : не b или...
Солнышко150986
13.11.2021 15:33
Текст набраный в текстовом редакторе хранится на внешнем запоминающем устройстве:...
ririf
07.04.2020 03:08
Шайқастың маңыздылығы ерлік деп қандай іс әрекетті бағалаймыз ерең ерлік көрсеткен Қазақстандықтар кімдер айтнн...
ромакравчук12
31.07.2021 01:13
7. Третій учень фіксує відстань, на якій досліджуваний перестае чути хід годинника, і вимірює її. Дослід повторіть тричі для лівого і правого вуха. Запишіть результат у таблицю,...
амина653
30.04.2021 17:35
Посадили саженцев вишни, сливы и яблонь. Всего 90 штук. Сливовых посадили в три раза больше, чем вишнёвых, но в пять раз меньше, чем яблоневых. Сколько саженцев вишен, слив, и яблонь...
МинаМина2003
18.11.2020 13:27
На рисунке точка О центр окружности BC касающаяся к окружности угол C равен 30 градусов найти угол треугольника АОВ...
polina1254
07.08.2022 13:13
Y-0,16y=42 решите с пояснением...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.