Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
1. Необходимо выбрать вид теста: с открытыми вопросами (пользователь вводит ответ сам), с закрытыми вопросами (пользователь выбирает варианты ответа), комбинированный.
2. Разработать вопросы теста и варианты ответов.
3. Разработать алгоритм программы, автоматизирующей тест.
4. Записать разработанный алгоритм на языке программирования QBasic.
5. Отладить программу.
вот в 6 программа выводит все числа кроме 1 и самого числа #1
x=int(input())
s=0
while x!=0:
x=int(input())
s+=1
print(s)
#2
x=int(input())
s=0
while x!=0:
x=int(input())
if x==3:
s+=1
print(s)
#3
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=1
else:
s1+=1
print('четные-',s,'\n','нечетные-',s1)
#4
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=x
else:
s1+=x
print('четные sum-',s,'\n','sum нечетные-',s1)
#5
s=0
x=int(input())
while s<=x:
y=int(input())
s+=y
if s<=x:
break
#6
x=int(input())
t=x-1
while t>1:
if (x%t)==0:
print(x/t)
t-=1
else:
t-=1
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>