Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.
3 задание.,,,,, ,,,,,,,
ArtemKrapitski [14]
Ответ 2. Задание вроде как не школьное. А скорее всего из дискретной математики первого курса.
Стандартно в окне браузера используется панель для выполнения практически всех операций. Она располагается сверху. На ней есть:
1 Кнопки назад/вперёд для загрузки предыдущей/следующей страницы
2 Адресная строка, совмещенная с полем поиска
3 Кнопка Поиск - открывает окно поискового запроса
4 Кнопка Обновить - для обновления содержимого окна
5 Кнопка Остановить - останавливает загрузку веб - страницы
6 Панель для вкладок (просматриваемых веб - страниц)
7 Кнопка Домой - переход на стартовую страницу
8 Кнопка Настройки
Также есть само окно браузера, в котором работает пользователь, кнопки в верхнем правом углу Свернуть/Закрыть, вкладки веб-страниц (в шапке каждой - название и значок закрытия), значок для создания новых веб-страниц.
Удаление символа буквы или цифры backspace
Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.