Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mozya0001mozya
04.12.2022 23:17 •
Информатика
с информатикой нужно записать элемент блок-схемы на паскале.
Ответ:
zeus333
28.08.2020 08:14
if(x >= y) then
begin
x := x - 100;
y := y + 100;
end;
else
begin
y := y - 100;
x := x + 100;
end;
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
skp1563
22.04.2022 08:43
Вводиться довільне число а. Якщо воно додатне,то у:=аа+3*а,а якщо від ємне,тр у:=4*а-а/2....
Anutka87igorevna
24.01.2023 06:27
Математика » және « Информатика » пәндерінде екі санның қосындысын есептеу мысалын салыстырыңдар ....
ayazhan10yearsold
03.03.2023 00:14
Эссе на тему робаты в нашей жизни...
BackTiger007
24.10.2021 22:13
Выберите из предложенных вариантов только образные информационные модели. Выберите один или несколько ответов: a. Фотография b. Словесное описание c. Формула d. Таблица e....
ariskin2
31.01.2020 12:41
Запишіть програму для обчислення суми квадратів від ємних елементів масиву дійсних чисел. Кількість елементів масиву n (5 n 30), числа вводяться з клавіатури....
Coolplay
12.11.2022 08:00
Какой символ вставляет в текст клавиша интер. варианты ответов конец предложения конец строки конец абзаца конец текста...
otrixx1kiraeee
02.09.2020 12:20
Нужно перевести число 97,57 из десятичной системы в двоичную...
neverr
02.09.2020 12:20
Составьте программу подсчета числа различных компонент целочисленного фай-ла. результаты запишите в файл. турбо паскаль...
Stasuyksuper06
20.06.2021 22:44
Составьте программу, которая запрашивает четыре числа с клавиатуры и определяет среди них количество четных чисел. readln (a, b, c, d); if d mod 2 =0 then k: =k+1; k: =0;...
Dashad27
20.06.2021 22:44
Растровым графическим редактором ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
if(x >= y) then
begin
x := x - 100;
y := y + 100;
end;
else
begin
y := y - 100;
x := x + 100;
end;
Объяснение: