begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
1 связи на расстояний
2 появились gps навигаторы легко путешествовать
3 можно получить полезную информацию
4 смотреть фильмы, слушать музыку для психологий очень влияет
5 передавать файлы документы и тд за секунды
Var a:integer;
begin
repeat
// число, которое надо ввести - 47
writeln('Введите двузначное число');
readln(a);
until a<>47;
writeln('Введенное число ', a);
end.
1. sqr(1+x)
2. sqrt(1+sqr(x))
3. sqr(cos(sqr(x)))
Билл из Гравити Фолз пожирает оленя