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.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Они отличны друг от друга, но если установить именно связь, то:
Интранет — это Интернет в миниатюре, который построен на использовании протокола IP для обмена и совместного использования некоторой части информации внутри этой организации.
<em>На Паскале:</em>
var b: integer;
begin
writeln('Введите число: ');
readln(b);
if b mod 21=0 then
writeln('Число кратно 21')
else
writeln('Число не кратно 21');
end.
#!/usr/bin/env python
# coding: utf-8
"""Определение типа треугольника по сторонам.
Python 2.X.
"""
msg = 'Введите стороны треугольника: '
input = raw_input(msg).split()
try:
a, b, c = [float(i) for i in input]
except ValueError:
print('Введены не числовые значения! Выход...')
quit()
if (a >= b + c or
b >= a + c or
c >= a + b):
print('Не', end=' ')
elif a ** 2 + b ** 2 == c ** 2:
print('Прямоугольный', end=' ')
elif (a ** 2 + b ** 2 > c ** 2 and
a ** 2 + c ** 2 > b ** 2 and
c ** 2 + b ** 2 > a ** 2):
print('Остроугольный', end=' ')
else:
print('Тупоугольный', end=' ')
print('треугольник')