Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vikylyalol
12.06.2021 06:38 •
Информатика
1. найти частное от деления двух целых чисел. 2. написать программу,которая проверяет, является ли введенное с клавиатуры целое число четным. и объясните , с решениями. а то я не понимаю ничего : с
Показать ответ
Ответ:
Liza6895
05.07.2020 14:54
1.
var
x,y:integer;
z:real;
begin
write('Введите два числа: ');
readln(x,y);
z:=x/y;
writeln('Их частное равно ',z)
end.
2.
var x:integer;
begin
write('Введите число: ');
readln(x);
if (x mod 2=0) then writeln('Число четное') else writeln('Число нечетное')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SoktoevTimur
17.11.2022 21:42
Из последовательности натуральных десятичных чисел вычеркиваются все числа, содержащие 0 в десятичной записи. затем вычеркиваются все числа, содержащие 0 в шестнадцатеричной...
kettyperry16
18.02.2022 06:33
Робо-сумо. Урок 2 Определи значение переменной s после выполнения цикла, если робот сначала был на синем поле.9865НазадПроверить...
smaiershow
05.07.2022 18:32
Логическая функция F задаётся выражением: (x → y) /\ (x \/ ¬z) /\ (x ≡ ¬w).Дан частично заполненный фрагмент, содержащий неповторяющиеся строки таблицы истинности функции...
zlatovlaska
10.12.2020 00:47
Файл размером 1024 байта передаётся через некоторое соединение за 64 миллисекунды. Определите время в миллисекундах, за которое можно передать через...
ТЕМА3232
27.05.2022 13:42
Ну вообщем. не могу понять. нам задали . оно выглядит так- придумать на сравнение мешков. заранее !...
milka10101
12.09.2021 14:22
кантрольная работа 8 класс Контрольная работа 8 класс. I. Прочитайте текст и выполните задание: 1. Отметьте предложения как правильные (True) или неправильные (False), даны...
znani5
16.12.2020 21:57
НАДО!! закрыть фигур, в которых указаны события, произошедшие в период правления екатерины ll 1. созыв уложенной комиссии 2. ликвидация гетманства на территории украины 3....
Negativniy
16.12.2020 21:57
Вася видел играющих в поле лисиц, зайцев, умывающихся лапками, дроздов, расправляющих крылья, стрепетов, выбивающих свои точки графически объяснить запятые в этом предложении....
СТЕЛЛА1111111111
27.07.2022 11:35
очень Отметь ряд химических элементов, в котором последовательно уменьшаются металлические свойства веществ: калий, барий, галлий натрий, углерод, алюминий натрий, магний,...
yulik9
27.07.2022 11:35
сильно, сильно, в течении 5 минут решите:( Первая машинистка печатает 18 страниц в час, а вторая за 6 ч. печатает столько же страниц, сколько первая за 5 ч. Сколько страниц...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
x,y:integer;
z:real;
begin
write('Введите два числа: ');
readln(x,y);
z:=x/y;
writeln('Их частное равно ',z)
end.
2.
var x:integer;
begin
write('Введите число: ');
readln(x);
if (x mod 2=0) then writeln('Число четное') else writeln('Число нечетное')
end.