1.
var f:integer;
begin
read(f);
if f mod 2<>0 then
f:=6*f
else
f:=f+29;
writeln(f);
<span>end.
2.
var i,n,k:integer;
begin
read(n);
k:=1;
for i:=2 to n do
k:=k*i;
writeln(k);
<span>end.</span></span>
Ответ:
Похоже на вирус
Объяснение:
Возможно было скачивание на вирусных сайтах
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Безусловно, должны быть явными, потому что ни один из ссылочных типов не являтся подтипом значимых и преобразования должны быть заданы самостоятельно.
Ответ: 3)