Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
moldirkenesova
28.04.2022 05:33 •
Информатика
Ввести три числа найти их разность и среднее арифметическое.( написать программу в паскаль)
Показать ответ
Ответ:
Клеу
24.09.2020 01:47
uses crt;
var a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
minus:=a-b-c; writeln(a,'-',b,'-',c,'=',minus);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3; writeln('sredn./arifm.=',sr:2:3);
readkey;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kotikiwin
04.04.2022 09:43
Уисполнителя прибавлятель три команды, которым присвоены номера: прибавь 1, прибавь 2, прибавь 4. первая из них увеличивает число на экране на 1, вторая — на 2, третья...
ввіна
25.08.2020 01:33
Тест по информатике 1. Дать определение цикла. Цикл с предусловием – это 2. Запишите на языке Паскаль структуру оператора цикла с параметром. 3. Сколько раз будут выполнены...
jakupovaalbina
20.03.2021 18:04
Числовий код призначений для опрацювання людиною та використовується для впорядкованого зберігання даних про товар ...
IKramarenko
06.11.2021 16:09
1 Перечислите особенности растровой графики. 2 Перечислите особенности векторной графики. 3 Определение фрактальной графики. 4Найдите и вставьте в электронный конспект...
dikray1
01.09.2022 06:12
Определите типы следующих адресов a1 b3 & d& 8 c5 & k& 12 k12 & b& 21 d8...
Ronaldinho2003
01.09.2022 06:12
Спрограммой на языке с. мне выводит какую-то ошибку, при ее запуске. #include int main () { char letter; int num1, num2; printf( enter any one keyboard character: );...
ніка2007
16.03.2021 00:40
Кесте бойынша көкөніс тақырыбына диалог құрыңдар мәтінді сын есім үстеу сөздерді қолданыңдар...
АгентК
25.05.2020 17:34
Сравнить басни лессинга и крылова. письменно ответить на вопрос: чем отличаются герои басен и мораль басен?...
Мисаки11111
01.01.2022 15:39
1. особенность строения и соцветия шиповника собачьего. 2. примерная численность видов шиповника собачьего. (кратко! )...
абдулоахмед1
01.01.2022 15:39
80 проверочная работа по рассказу и.с тургенева мумурасположите события в повести в правильном порядке1барыня задумывает женить 2капитона на татьяне3герасима по приказу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
minus:=a-b-c; writeln(a,'-',b,'-',c,'=',minus);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3; writeln('sredn./arifm.=',sr:2:3);
readkey;
end.