Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Анджелика10
14.02.2021 06:25 •
Другие предметы
Арифметический калькулятор (программа Паскаль)
Показать ответ
Ответ:
lysia75
16.04.2019 23:00
program z1; {k -сомножители, a- число сомножителей , s - произведение}
uses crt;
var x, y, s: real;
a, b: char;
begin
repeat
write(‘x=’); read(x);
write(‘y=’); read(y);
write(‘Операция(+, -, *, /)’); read(a);
case a of
‘+’: s:=x+y;
‘-’: s:=x-y;
‘*’: s:=x*y;
‘/’: s:=x/y
else
write(‘Ошибка ввода’);
end;
writeln (x:7:3, a:3, y:7:3, ‘=’, s:7:3 );
write (‘Продолжить (y/n)’);
read(b);
until (b=’n’) or (b=’n’);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
ivancerbadji
02.01.2022 08:47
написать изложение по лезгинскому кьве мирг...
PolyaBarane
11.06.2020 11:15
1.Чем определялась политика «военного коммунизма»? (годы) 2.Перечислите основные экономические меры перехода к НЭП? (годы Нап) 3.Каковы последствия перехода к НЕП ИСТОРИЯ КАЗАХСТАНА...
nonyshko
26.08.2022 13:17
Какие знания относятся к фактам? Я знаю, как убрать свою комнату Экватор проходит через 13 стран мира Самое ветреное место — Земля Виктории, находящаяся в Антарктиде. Скорость ветра...
NICKMASTER121
15.03.2021 09:55
С кем Винсент в течение жизни общался чаще и больше всего? Кто был самым родным человеком?Назовите самые известные картины художника?вот сылка на видио все ответы по нему насчёт...
artiom726
19.06.2021 11:29
Используйте данные таблицы гелиоцентрических долгот планет из «Школьного астрономического календаря» для ответа на следующие во найдите в таблице даты на которые приходятся соединения...
virakudleychuk
24.10.2020 00:33
Очень нужны ответы в течении двух дней! На фото видно все во...
djekichan123
08.04.2023 17:20
Мы всем гордо рассказывали(,)как завинтили гайку .Нужна посли рассказывали запятая?...
nastya09042
30.11.2022 00:42
Виды соревнований, которые не входят в программу Олимпиад. * кулачные бои 2. футбол 3. прыжки на батуте 4. плавание на корабле 5. хоккей 6. баскетбол...
benjulia
03.06.2020 07:08
решите эти три кроссворда....
Xzxzxzxzxzzxzxz
24.05.2020 16:46
Какие из перечисленных городов принимали Олимпийские игры? Выберите все правильные ответы. * Казань Сочи Москва Санкт-Петербург...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var x, y, s: real;
a, b: char;
begin
repeat
write(‘x=’); read(x);
write(‘y=’); read(y);
write(‘Операция(+, -, *, /)’); read(a);
case a of
‘+’: s:=x+y;
‘-’: s:=x-y;
‘*’: s:=x*y;
‘/’: s:=x/y
else
write(‘Ошибка ввода’);
end;
writeln (x:7:3, a:3, y:7:3, ‘=’, s:7:3 );
write (‘Продолжить (y/n)’);
read(b);
until (b=’n’) or (b=’n’);
end.