Ответы на вопрос:
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.
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
tretekova8613.05.2021 09:22
-
Alisacollins119.03.2022 09:22
-
rope2230.04.2020 14:51
-
danilbugaev72826.08.2021 13:22
-
Frolinng30.08.2022 00:06
-
luszdncsjmn05.01.2022 02:44
-
Kik192415.04.2022 18:03
-
perelyana901.04.2021 15:07
-
shrnv25.02.2021 10:27
-
zvezda02615.09.2022 00:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.