tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать на языке паскаль: умножить
Написать на языке паскаль: умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.
BOMJangLOX
1 23.05.2019 19:40
1
Ответы
moranikatya
19.06.2020 14:22
Fl := false;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
смерть73
09.04.2020 22:41
Исполните фрагмент линейного алгоритма для a = x и b = y. a := a + b; b := b - a; a := a + b; b := - b; Какие значения присвоены переменным a и b? -y, x x, y y, x x + y, x - y...
vladinfo1
09.04.2020 22:41
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 30 символов в этой кодировке...
khudobeidiana
09.04.2020 22:40
Максимальная скорость передачи данных в локальной сети 100 мбит/с сколько страниц текста можно передать за 1 сек если 1 страница текста содержит 50 строк и на каждой строке -...
Aliya205
31.05.2019 20:50
Программа кумир, тема циклы. найти сумму первых пяти четных чисел (mod,div)...
sergogocer
31.05.2019 21:00
Скласти казку про батьківщину всім дякую...
Ошлиарлт
31.05.2019 21:00
1. массив 10 элементов с клавиатуры, найти среднее арифметическое первой и второй половины. 2. массив из n элементов максимальное 20 минимальное 2 .найти среднее арифметическое...
NadiaU0
31.05.2019 21:10
Записать на языке паскаля. даны два числа. замените меньшее из них модулем разности этих чисел, а большее модулем суммы....
YourselfRuelfddd
31.05.2019 21:10
Определить сколько цифр в н- значном (паскаль)...
bondaryulia2000
31.05.2019 21:10
24div 4+29mod 5-sqr (4)+sqrt (4)-abs (-3)...
Daniil2263
31.05.2019 21:10
Отгадать кроссворд 1.чувственный образ объекта в данный момент нами не воспринимаемого 6 букв 2.форма мышления в которой что либо утверждается или отрицается 7 б...
Популярные вопросы
Вычисли рациональным (64 + 168) : 8 =...
1
Напишите эссе на тему какую историю можно поверить старая фотография Фотография...
3
Решить задачу по математике...
3
Напишите текст-описание на тему «Достопримечательности моего края» Я ЖЫВУ В...
1
Випишіть з поданого тексту всі дієслівні форми.Коли їси, сиди прямо, не клади...
2
Дано: tв = 20 mв = 0,09 кг Св= 4200 tц = 75 t общая = 23 Найти: С цилиндра...
3
Сенбінің алдында келетін апта күні? Сенбіден кейін 3 күн өтті.Ол қай күн?...
2
Тест, Сравнение дробей с разными знаминателями (напишите вот так ответы) Пример):1....
2
Дима склеил из картонных кубиков фигуру, изображенную на рисунке, которая со...
1
Представь многочлен в виде произведения и заполни пропуски. = ( uv – + )...
3
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;