Ответы на вопрос:
Задание 1. Программа if18
Var
A,B,C:Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If (C = B) Then
WriteLn('Номер числа, отличного от остальных: ',1)
Else
If (A = C) Then
WriteLn('Номер числа, отличного от остальных: ',2)
Else
WriteLn('Номер числа, отличного от остальных: ',3);
End.
Задание 2. Программа Case1
Var
x:Integer;
Begin
ReadLn(x);
Case x Of
1:WriteLn('Понедельник');
2:WriteLn('Вторник');
3:WriteLn('Среда');
4:WriteLn('Четверг');
5:WriteLn('Пятница');
6:WriteLn('Суббота');
7:WriteLn('Воскресенье');
End;
End.
Задание 3. Программа For7
var
A,B:integer;
temp:integer;
i:integer;
begin
temp:=0;
repeat
writeln('Введите A и B:');
readln(A,B);
until (A<B);
for i:=A to B do
begin
temp:=temp+i;
end;
writeln('Сумма :',temp);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Dashacolod15.01.2020 19:22
-
lenakors199714.04.2021 00:21
-
ислам111031.12.2021 20:38
-
coolplayer126.12.2020 06:20
-
dowikesu22.12.2021 11:22
-
fatimarukir27.01.2020 06:06
-
sab202125.05.2020 21:55
-
ULYAVALEREVNA18.05.2021 19:58
-
lightningwhite26.07.2021 22:33
-
Йома18.03.2020 18:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.