Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
RaminaMirzaeva
17.08.2020 05:58 •
Информатика
Написать 2 программы в паскале
Показать ответ
Ответ:
Джахаршин8
30.08.2020 01:09
Задание 1:var x,y: integer; begin readln(x); if x < 0 then y := -x else y := sqr(x); writeln(y); end.Задание 2:
Включая 0:
var i, n: integer; begin repeat readln(i); if i.IsOdd then n += 1; until i = 0; writeln(n); end.
Не включая 0:
var i, n: integer; begin repeat readln(i); if (i.IsOdd) and (i<>0) then n += 1; until i = 0; writeln(n); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GNA14
19.03.2021 14:53
Свой ответ. Задания 1. Проверь свою наблюдательность. Какую информацию ты получаешь, рассматривая рисунок 5? ПОМАГИТЕ...
aliFkaVAY
29.11.2021 12:18
Один з найдавніших шифрів розробив Полібій (ІІІ ст. до н. е.) - грецький історик, полководець, державний діяч. Цей шрифт отримав назву «квадрат Полібія». Кожна літера...
снежана183
24.07.2022 23:48
Решите примеры: 1. Переведите информацию объемом 3 Мбайт в Кбайт, а за- тем в бaйты. 2. Определите информационный объем слов «Казахстан», «Информация». 3. В книге...
Діана25123456789000
06.02.2023 19:44
Какое свойство алгоритма предполагает получение однозначного результата некоторого процесса? Детерминированность Результативность Конечность Дискретность...
RedFoxTR
28.09.2022 19:15
Менеджер магазина электроники Андрей подготовил таблицу с оценкой эффекта от запуска различных вариантов акции...
kagdhs
11.08.2021 13:32
Тауелсіздігім тірлігім эссе...
Ласточка005
12.05.2023 17:19
3.Представьте обыкновенные дроби в виде бесконечных периодических десятичных дробей:1. 1/9 2.11/153.8 41/454.22 У МЕНЯ СОР,ОСТАЛОСЬ 20 МИНУТ НА ВСЕ ПРО ВСЕ ЗА РАНЕЕ!...
Alina221006
24.01.2021 01:24
109-бет, 1-тапсырма.Сөйлемдерге жазбаша сұрақ құрастырыңдар (Письменно составьте вопрос к предложениям )...
fgugjxg
26.09.2021 15:46
ОЧЕНЬ НАДО. Распределите литературоведческие термины по их значению по группам в соответствии с тремя литературными родами: эпос, лирика, драма (миф, стих, мифический...
aslazer211124
15.07.2020 04:45
які відхилення від нормального зору має ккороткозора людина? Якими окулярами можна виправити цей дефект зору?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Включая 0:
var i, n: integer; begin repeat readln(i); if i.IsOdd then n += 1; until i = 0; writeln(n); end.Не включая 0:
var i, n: integer; begin repeat readln(i); if (i.IsOdd) and (i<>0) then n += 1; until i = 0; writeln(n); end.