//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
Кукла - кулак
марка - рамка, карма
каприз - приказ
соринка - росинка
Так как полное имя файла стало
С:\папки\математика\задачи\Задача.doc,
а до этого были созданы два вложенных подкаталога, то очевидно, что созданные каталоги -
математика и
задачи <span>
Следовательно, полное имя файла до перемещения:
</span>С:\папки\Задача.doc
У тебя всё правильно расставлено. Очевидно, что двое ребят будут только болельщиками (те, кто не умеет играть ни в шашки, ни в шахматы), а для шести шахматистов понадобится 3 набора шахмат - на каждых двоих по набору. Закрашиваешь так: только в шашки - круг без пересечения с квадратом; только в шахматы - квадрат без пересечения с кругом; в шашки и шахматы - пересечение круга и квадрата; только болельщики - часть овала без круга и квадрата.