Задание 1
Во Какие из приведённых утверждений верны?
Выберите несколько из 4 вариантов ответа:
1) a % b = b // a
2) math.cos (1) = math.cos (1 + 2 * math.pi)
3) a % b = a - (a // b) * b
4) math.sin (1) = math.sin (1 + 180)
Задание 2
Во Установите соответствие между функциями и их значениями, если x = 1.69.
Укажите соответствие для всех 4 вариантов ответа:
1) 1 sqrt (x)
2) 1.69 abs (x)
3) 1.3 int (x)
4) 2 round (x)
Задание 3
Во Функция abs (x) вернула значение 4. Укажите возможные значения x.
Выберите несколько из 4 вариантов ответа:
1) 2 2) 4 3) -4 4) 16
Задание 4
Во Установите соответствие между данными и их типом?
Укажите соответствие для всех 6 вариантов ответа:
1) int int (4 / 3)
2) float round (2.3)
2 / 2
abs (6 / 3)
6 % 4 / 2
3 // 2
Задание 5
Во Сопоставьте значения данных и их типы.
Укажите соответствие для всех 6 вариантов ответа:
1) int -10
2) float 4 / 2
0.2e+01
3 + 2
0
2
var
n,i,z:integer;
begin
readln(n);
z:=1;
for i:=2 to n do
z:=z*i;
writeln(z);
end.
Если программу написать так, то максимальный факториал, которой мы сможем вычислить - 12. Можно integer изменить на real, тогда чуть больше сможем вычислить. Так же можно вычислить через массив, тогда где-то 3000 мы сможем получить.
Если же ввести больше 12 в этой программе, то получится переполнение переменой, из-за чего число пойдёт "по кругу". Т.е. мы получим не 3 000 000 000, а -1 000 000 000, т.к. максимальное число у integer - примерно 2 000 000 000
Внимание! Если программа не работает, обновите версию!
begin
// структура строки
// день время канал вид название(возможно, многословное)
// цель: удалив "канал" (третье слово), найти совпадающие строки
var ms:=ReadAllLines('TV.txt');
ms.PrintLines; // чтобы было понятно содержимое файла
Writeln;
var d:=ms.GroupBy(s->(s.ToWords[:2]+s.ToWords[3:]).JoinIntoString(' '))
.Select(t->(t.Key,t.Count)).Where(t->t[1]>1).Select(t->t[0]);
if d.Count=0 then Writeln('Искомые передачи отсутствуют')
else
foreach var s in d do begin
var key:=s.ToWords.Take(2).JoinIntoString;
ms.Where(t->t.ToWords.Take(2).JoinIntoString=key).Printlines;
Writeln
end
end.
Пример
Понедельник 09:00 Первый Новости Новости на Первом
Суббота 19:40 Первый Фильм Кин-дза-дза!
Среда Первый 07:15 НТВ Мультфильм Трое из Простоквашино
Четверг 19:40 Первый Фильм Кин-дза-дза!
Вторник 09:00 Первый Новости Новости на Первом
Понедельник 12:00 Первый Новости Новости на Первом
Пятница 16:40 Россия-1 Мультфильм Трое из Простоквашино
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Среда 09:00 Первый Новости Новости на Первом
Четверг 09:00 Первый Новости Новости на Первом
Суббота 19:40 НТВ Фильм Кин-дза-дза!
Суббота 19:40 Первый Фильм Кин-дза-дза!
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Суббота 19:40 НТВ Фильм Кин-дза-дза!