Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
zilga1
02.11.2021 17:31 •
Информатика
Впаскале, в if. требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен выведите сообщение на экран «год високосный» или «год не високосный».
Показать ответ
Ответ:
mksmsslvp0b481
07.10.2020 20:00
Var a: integer;begin read(a); if (a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then writeln('Да') else writeln('Нет');end.
0,0
(0 оценок)
Популярные вопросы: Информатика
valeria276
03.11.2021 02:59
1. скорость передачи данных по каналу связи составляет 2048 кбайт/с. определите, за сколько секунд будет передано сообщение объемом 60 мбайт? 2. информационный объем слова длиной...
NarutoUzumaki1999
10.03.2021 09:30
Составить алгоритм сделать тесто,поджарить блин,положить блин на тарелку...
tv7antena
19.10.2022 09:17
S=2: i=2 while i 6 s=s+i*(i+1) i=i+1 wend )...
ксения29321
19.10.2022 09:17
На остановке останавливаются автобусы с разными номерами. сообщение о том, что подошел автобус № 1 несет 4 бита информации. вероятность появления автобуса № 2 в два раза меньше,...
TatarskayaGreckha
10.01.2022 17:24
Какое значение будет принимать переменная y после выполнения программы: var x,y : integer; begin y: = 0; for x: =10 downto 5 do y: = y + x; writeln (‘y =’, y ); end....
Kris15kim
27.04.2022 14:42
Набор признаков содержащий всю необходимую информацию об исследуемом объекте. два слова должно бфть...
0Dasha0Shevelova0
27.04.2022 14:42
Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4*(x-5)*(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t) r)then begin m: =t;...
ангелина867
27.04.2022 14:42
Разгадайте кроссворд информационное моделирование 4,.модели представляющие собой реальные предметы в уменьшенном или увеличенном виде воспроизводящие внешний вид структуру или поведение...
HaGiNg
27.04.2022 14:42
Правда ли, что строка в редакторе блокнот может быть бесконечной длины? а)да,это не зависит от размеров окна б)нет, ее длина зависит от кодировки символов в)да, если не включить...
EvaGRNV
09.03.2023 19:42
Заранее, ! определите в списке те позиции, которые не являются правильными записями чисел в указанных системах счисления. а) 00111200 в двоичной системе счисления б) а916 в шестнадцатеричной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота