Задание 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.
Поделитесь своими знаниями, ответьте на вопрос:
Відстань від міста А до міста В поїзд подолав за 5 год 48 хв, а від міста В до міста С - за 3 год 34 хв. Скільки часу поїзд був у дорозі? Поясни обчислення.
5 год 48 хв + 3 год 34 хв = 9 год 22 хв
5 год 48 хв
+ 3 год 34 хв
8 год 82 хв
9 год 22 хв
8 год 82 хв = 8 год + 60 хв + 22 хв = 8 год + 1 год + 22 хв = 9 год + 22 хв = 9 год 22 хв