Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;

End.

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.

Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.

0 0

4 года назад

При замене жесткого диска данные сотрутся

sayora [7]

Данные сохраняются на старом жестком диске

0 0

3 года назад

Прочитать ещё 2 ответа

1)Ниже приведены запросы и количество страниц, которые нашел поисковой сервер по этим запросам в некотором сегменте Интернета: Ф

ElenaAll

Ответ:

1) ('1'+'3')+('2'+'3') - '3' = 3000 (фрегат | эсминец)

'1' + '3' = 2000 (фрегат)

'2' + '3' - = 2500 (эсминец)

'3' - ?

2000 + 2500 - '3' = 3000

'3' = 1500

2) 2500

467 − 274 + 108 = 301

0 0

4 года назад

В электронной таблице значение формулы =СРЗНАЧ(A1:B4) равно 3. Чему равно значение ячейки A4, если значение формулы =СУММ(A1:B3)

Moneko [7]

Простите, но у меня вышло -17

0 0

3 года назад