Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mkatty2910
29.10.2022 08:13 •
Информатика
Напишите программу ввода чисел а,b с клавиатуры.если a=b,то вывести на экран сумму a и b,иначе вывести на экран b-a (используя функцию)паскаль
Показать ответ
Ответ:
roksi100200
16.09.2020 21:29
Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
end.
Тогда так
0,0
(0 оценок)
Популярные вопросы: Информатика
koshe4ka556654
11.07.2021 11:36
5. Определи тип переменной: Определи тип переменнойх после выполнения следующих действий.х=4**2х=5.2+хO intO strO floatO bool БЫСТРЕЕЕ ЭТО СОР...
Alan1987
27.11.2021 23:04
ТЕКСТ ЗАДАНИЯОпредели порты к которым подключеныгироскопические датчики...
WhataMataFon
24.02.2022 04:31
Заданне 3. Соотнесите рисунки с видами роботов А. Медицинские роботыВ. Бытовые роботы2.С. Промышленные роботы3.D. Транспортные работы сор...
milana20101986
07.08.2022 02:45
Отступ первой строки осуществляется...
2004тигр2004
05.04.2020 20:40
Информатика сочи 3 четверть 5 классинформатика сочи 3 четверть 5 класс ответить на вопросы правильно...
Dasulya21
20.11.2022 00:47
Водномерном массиве из n чисел переставить местами больше и маленькое (составить программу на бейсике)...
sanya3344
20.11.2022 00:47
Заменить максимальный элемент массива средним значением всех его элементов. язык vba...
zhigulovnik
22.05.2020 12:25
Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). ответ введи целым числом. Если координаты точек: x1=4;y1=6x2=10;y2=13....
lizadruzhinina1
29.07.2021 09:30
Выполните число 617 в: восьмеричной системе шестнадцатиричной системе с проверкой, !...
leravolk399
12.03.2020 17:44
Алфавит племени Навахо состоит из 16 символов. Сколько бит информации несет сообщение, написанное с этого алфавита, состоящее из 375 символов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
end.
Тогда так