Например, поход в школу.
Приготовление какой-нибудь еды.
и т.д.
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
///////////////<u>Pascal abc</u>/////////////
Ответ Нос (3) потому что 10111000 нельзя первым ставить остальные буквы как кроме «н», а дальше все понятно.
Ответ:
def reverse(arg):
return arg[::-1]
def main():
number = input()
try:
assert len(number) == 5
except AssertionError:
print('Wrong input!')
else:
print(reverse(number))
if __name__ == '__main__':
main()
Объяснение:
Для вашего удобства ниже приложен скриншот кода. Сайт напрочь ломает табуляции
