<em>program skorost;</em>
<em>uses crt;</em>
<em>var</em>
<em>v,t,s:integer;</em>
<em>begin</em>
<em>clrscr;</em>
<em>writeln('Введите скорость v');</em>
<em>readln(v);</em>
<em>writeln('Введите время t ');</em>
<em>readln(t);</em>
<em>writeln('Найдем пройденный путь автомобиля s');</em>
<em>s:=v*t;writeln('otvet');</em>
<em>writeln(s);</em>
<span><em>end.</em></span>
IV - с помощью микроскопа
F= A+B*¬C
A=1 B=1 C=0 ¬C=1
F=1+1*1
F =1 (истина)
ответ: истина
Var i,k,count,n:integer;
begin
readln(n);
for i:= 1 to n do
begin
count:=0;
for k:= 1 to i do
if i mod k = 0 then
if (i div k = 1) or (i div k = i) then
count:= count+1
else count:=3;
if count=2 then
writeln(i);
end;
<span>end.</span>