Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Черепашка312
22.03.2020 07:37 •
Информатика
Ввести с клавиатуры двухзначное число.опред.,равна ли сумма его цифр 10. решить в паскале
Показать ответ
Ответ:
upf300804
19.06.2020 04:21
Program proga;
uses crt;
var
x:byte;
begin
readln(x);
if x=19 or x=28 or x=37 or x=46 or x=55 or x=64 or x= 73 or x=82 or x=91 then
writeln(сумма чисел в двухзначном числе равна 10)
else
writeln(сумма чисел в двухзначном числе не равна 10) ;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
cheropitan
29.10.2022 04:36
Напишите программу на paskalabc график: круг, домик и лицо человека...
Лера111222333
31.12.2020 15:55
Решите кроссворд. 1)статическая функция (12 букв) 2)прямоугольная часть таблицы (8 букв) 3)тип данных в электронных таблицах (7 букв) 4)наименьшая структурная единица электронной...
1Маргарет1
02.01.2020 13:22
ответьте на во по теме Pascal. Двумерные массивы. Главное ответы верно, за это Во В записи m[7,5]=9 m обозначает ___ Варианты ответов имя массива имя элемента массива номер...
AliskaLao16
05.06.2022 03:08
1) Сколько килобайт содержится в 0,25 мегабайта? 2) Сколько бит содержится в 128 гигабайтах?3) Сколько байт содержится в 0,25 килобайта4) Сколько бит содержится в 16 гигабайтах5)...
matveysandors
27.09.2021 12:14
4. Тұрмыстық роботтарға қандай техникаларды жатқызуғаболады?...
azimbayevmukan
11.02.2020 16:11
1 компьютер не может работать без оперативной памяти ( верно/не верно). 2.центральный процессор хранить файлы (верно/не верно)3.у компьютера два вида памяти- оперативная и...
простониккакойтотам
07.04.2022 14:49
Что сделать для того чтобы разблокировать?...
Metyakarimi
07.04.2021 08:41
Надо написать программу в pascal abc надо написать программу, чтобы нарисовать деревья по координатам (2 клетки-это 50 пикселей). используя команду uses graphabc и setwindowsize(1000,600).на...
агм2
25.04.2021 21:24
#include iostream using namespace std;main(){int n,i,j,b,a,z=0;cin n;if (n 0 && n!=0){for (i=1;i =n;i++)z+=i;}else{for (i=1;i =n;i--)z+=i;}cout z;}ПЕРЕВЕДИТЕ ПРОГРАММУ...
Эвелина123412
13.12.2021 03:57
МНЕ НУЖНА ХОТЯ БЫ ПРОГРАММА ПО КОТОРОЙ РАСЧИТЫВАЛИ Сдать решение задачи C.02-Новая поливальная система Задача C.02: Новая поливальная система Эта задача с открытыми тестами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
x:byte;
begin
readln(x);
if x=19 or x=28 or x=37 or x=46 or x=55 or x=64 or x= 73 or x=82 or x=91 then
writeln(сумма чисел в двухзначном числе равна 10)
else
writeln(сумма чисел в двухзначном числе не равна 10) ;
end.