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.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Program a;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a < 0) then write('0')
else if ((a >= 0) and (a <= 18)) then write('1')
else write ('2');
end.
<em>uses crt;</em>
<em>var a, b, c, i, n:integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Введите размер массива, который надо сгенерировать');</em>
<em> read (n);</em>
<em> for i:=1 to n do </em>
<em> s[i]:=random(50);</em>
<em> for i:=1 to n do </em>
<em> writeln (i, ' элемент равен ', s[i]);</em>
<em> writeln ('Введите число, которое нужно найти');</em>
<em> read (a);</em>
<em> for i:=1 to n do</em>
<em> if s[i]=a then inc(b);</em>
<em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em>
<span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Формула Хартли<span> определяет количество информации, содержащееся в сообщении длины n. </span>