Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Ари 15
[304]
3 года назад
7
дано четырехзначное натуральное число.Определить является ли сумма первой и последней цифр кратной 3 Паскаль
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Hrystigold
[7]
3 года назад
0
0
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
Отправить
Читайте также
В одной из кодировок unicode каждый символ кодируется 2 байтами. Определите размер следующего предложения в данной кодировке: Мы
Мария Никифорова [11.3K]
Дано:
Решение:
Ответ:
0
0
4 года назад
Люди я вас умоляю пожалуйста срочно!!! ( A & ¬ B ) V C построить логическую СХЕМУ!! НЕ ТАБЛИЦУ ИСТИННОСТИ !!!!!!
Колояр
Нарисовала, надеюсь понятно
0
0
4 года назад
16, помогите пожалуйста
Sana35
Если я всё правильно понял, то должно быть так: var a:integer; begin if a mod 2 = 0 then a:=a*a else a:=a*a*a; write(a); end.
0
0
3 года назад
Какой объём памяти в килобайтах необходимо выделить под хранение растрого изображения размером 128×128 пикселей , если в палитре
АнгелВкедах [5.3K]
I=K*i
бит = 98304/8*1024 = 12 Кбайт
Ответ 12 Кбайт
0
0
3 года назад
С клавиатуры вводятся числа,0-конец ввода найти сумму кратных 3 и оканчивающихся на 7 Срочно плезз
Lyutiziya
Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=7) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
0
0
4 года назад
Смотрите также:
Переведите числа 579 и 2468 в систему счисления с основанием: 1)5; 2) 7; 3)9;подробно только нужно
15
·
1 ответ
Дан двумерный массив целых чисел. Количество столбцов определено в константе MAX_COL (описывать не надо), количество строк опред
6
·
1 ответ
Помогите решить задачу по информатике: На склад магазина поступила партия компьютеров, полностью занимающая контейнер, имеющий в
14
·
1 ответ
Помогите, пожалуйста, заполнить таблицу по информатике. Срочно!!!!
13
·
1 ответ
Создать программу для вычисления площади прямоугольника ( если а> б) или площади треугольника (если б> а)
9
·
1 ответ
Помогите пожалуйста написать программу на паскале! Написать программу для решения следующей задачи:Вычислить сумму объёмов и сум
9
·
1 ответ
СрочноПомогите решить, пожалуйста 2 программу
6
·
2 ответа
Помогите написать рассказ о безопасности компьютера. Заранее спасибо
5
·
1 ответ
Помогити ! Что делали люди без кампьютерев в18 веке?
7
·
1 ответ
ПОМОГИТЕ СРОЧНО!!! МНОГО БАЛЛОВ!!!Измените программу и текст файла исходных данных isdan.txt таким образом, чтобы исчезла необхо
6
·
2 ответа
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!