Известны средняя скорость движения катера, скорость течения реки и расстояние между двумя пунктами, которое должен преодолеть катер в двух направлениях - туда и обратно. построить таблицу, отражающую зависимость расстояния до цели (на прямом пути и на обратном) от времени движения катера с интервалом в полчаса.

program pr1; uses crt; var fl1,fl2: text; i,n,v,a,b: integer; beginclrscr; assign(fl1,'input.txt'); assign(fl2,'output.txt'); reset(fl1); readln(fl1,n); v: =0; for i: =1 to 1000000 do beginif i> =10 then begina: =i div 10; b: =i mod 10; if (a mod 2< > 0) and (b mod 2< > 0) then v: =v{? } 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}endelse if i mod 2< > 0 then v: =v 1; {здесь тоже самое}if v=n then break; end; rewrite(fl2); writeln(fl2,v); close(fl1); close(fl2); end.

если нужны объяснения то пиши в личку)

program zada4a; vari,x,n: integer; a: array [1..100] of integer; beginn: =0;

write('введите x - '); readln(x); for i: =1 to 5 do   - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную. begin  a[i]: =random(21);   -это строчка озночает, что числа интервалом от 0 до 20. write(a[i]: 5); end; writeln; for i: =1 to 5 do begin if x=a[i] then begin writeln('элемент в массиве равный ',x,' находится под номером - ',i); n: =n+1; end; end; if n=0 then write('элемент c таким значением отсутствоет'); end.