Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
MoskowCorp
18.02.2023 03:10 •
Информатика
Написать процедуру которая складывает два любых числа (два параметра) на паскале
Показать ответ
Ответ:
ilyazavrik
08.10.2020 14:45
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
procedure Sum2(a,b:real; var r:real);
begin
r:=a+b
end;
begin
var a,b,c:real;
(a,b):=ReadReal2('Введите два числа');
Sum2(a,b,c);
Writeln('Их сумма равна ',c)
end.
Пример
Введите два числа -3.184 153
Их сумма равна 149.816
0,0
(0 оценок)
Ответ:
Vedernikovred
08.10.2020 14:45
Var
a, b, c: integer;
procedure sum(x, y: integer; var z: integer);
begin
z := x + y;
end;
begin
writeln('Введите два числа: ');
readln(a, b);
sum(a, b, c);
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rafael2003ggwp
20.06.2020 13:28
1.алфавит состоит из 25 букв, какое количество информации несет в себе одна буква такого алфавита? 2.какова длина слова, если при словарном запасе в 256 слов одинаковой длины каждая...
гататвтврвга
08.11.2022 22:54
Втаблице ниже представлена часть кодовой таблицы ascii: символ 1 3 x y z c z десятичный код 49 51 88 89 90 99 122 восьмеричный код 61 63 130 131 132 143 172 каков восьмеричный код...
Ķрičтina
11.08.2021 23:32
Какая ёмкость у: 1) гибкого магнитного диска, 2) жёсткого магнитного диска 3) cd 4) dvd 5) устройства на основе flash-...
akaev1087
11.08.2021 23:32
Дан радиус круга. вычислить площадь и длину окружности этого круга в паскале abc...
sharopoamir05
11.08.2020 00:53
в системе счисления с некоторым основанием десятичное число 35 записывается в виде 43. укажите это основание...
LOLMASHAME
11.07.2021 21:07
1.пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка....
thankay
10.08.2022 15:47
Контрольные вопросы: 1. Сравните возможности Автофильтра и Расширенного фильтра. 2. В чем разница импорта документа в Excel и копированием содержания документа в Excel?...
sergo196
23.07.2022 21:52
Сочинение люди высокого долга...
ванга13
19.05.2021 03:06
An ……………. story is an exciting story about a hero who goes on an unusual journey and does new and dangerous things. 1.adventure 2.suspense 3.comedy...
nata1316
06.02.2023 23:16
Вопросы по повести .(ответы записать подробно) 1 «Название села, где жила мудрая девушка Февронья.» 2 «Что символизирует борьба князя Петра со змеем?» 3 «Почему Пётр и Феврония после...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
procedure Sum2(a,b:real; var r:real);
begin
r:=a+b
end;
begin
var a,b,c:real;
(a,b):=ReadReal2('Введите два числа');
Sum2(a,b,c);
Writeln('Их сумма равна ',c)
end.
Пример
Введите два числа -3.184 153
Их сумма равна 149.816
a, b, c: integer;
procedure sum(x, y: integer; var z: integer);
begin
z := x + y;
end;
begin
writeln('Введите два числа: ');
readln(a, b);
sum(a, b, c);
writeln(c);
end.