Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aresu
01.04.2020 14:54 •
Информатика
Написать программу на паскале: 1)для вычисления среднего арифметической переменных х1 и х2 2) для уменьшения на единицу значения переменной k
Показать ответ
Ответ:
Мария05m
09.08.2020 19:30
1)
var x1,x2:integer;
begin
read(x1,x2);
writeln((x1+x2)/2);
end.
2)
var k:integer;
begin
read(k);
k:=k-1;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olliu56
13.01.2021 17:58
Напишите два разных параметры для печати...
trjg456isa
23.04.2020 21:44
Вкладчик внёс в сбербанк вклад s какая сумма будет на счёту вкладчика через n лет? напечатайте таблицу зависимости s=f(n) для n = 1,2,3..20 s=1000 годовой приоритет 4%...
jane24p075cn
28.10.2020 00:37
Какой объем видеопамяти в кбайтах нужен для хранения размером 1024 на 768 пикселей и используещею 32-палитру...
shabalin06
19.03.2022 05:49
3. Определи результат переменной z после выполнения программы. z=0for x in range(5): z=z+x print(z)4. Определи результат переменной s после выполнения программы.s=0for...
ŦøPňŷŦĩĩ78
07.05.2022 12:02
НОУТБУК ЗАВИС ПОЛНОСТЬЮ. КНОПКИ, МЫШКА НЕ РАБОТАЮТ ПОЛНОСТЬЮ. ЕСЛИ ЗАКРЫВАЮ И ОТКРЫВАЮ НОУТБУК ОСТАЕТСЯ ТАКИМ КАК БЫЛ. ПРОЩЕ ГОВОРЯ МОЖНО СКАЗАТЬ ЧТО ОНО ПОЛНОСТЬЮ ЗАЛЕДЕНЕЛО(не...
ГульнараС
15.11.2022 23:10
по информатике. ответьте на эти два вопроса...
anytka1312
24.07.2022 04:31
Типы данных. Урок 2 Верных ответов: 2х=15.0+4х=8.9-5 5str(5.0**2)bool(5.0/4)х=55//3...
rada182
16.03.2021 14:37
Охарактеризуйте место операционных систем среди других видов программного обеспечения....
Котанская
06.07.2020 18:06
Посчитай на языке Паскаль 1 задачаvar s,k: integer; begin s = 0; for k := 3 to 7 do s = s + 6; writeln(s); end.2 задачаvar a, b, n: longint;begin readln(n);...
KemPerOo
29.10.2021 15:20
Для кокого из указанных значений числа X истено вырожение (X 1)&(X 2)&(X≠3)? X= 1,2,3, 4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1,x2:integer;
begin
read(x1,x2);
writeln((x1+x2)/2);
end.
2)
var k:integer;
begin
read(k);
k:=k-1;
end.