5. Сопоставь результаты с его кодом: 1) num = (1, 2, 3, 4, 5)
for k in num:
if k=3:
continue
print(f'Output numbers {k}')
print("End")
A) Output numbers 1
Output numbers 2
Output numbers 4
Output numbers 5
2) num = (1, 2, 3, 4, 5)
fork in num:
if k=-3:
continue
print(f'Output numbers {k}').
b) Output numbers 1
Output numbers 2
Output numbers 3
End

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

у нас тоже это было!

вот смотри:

первое а-а, шея-яеш, мама-амам,-это называется слова наобарот

а-1, весна-3, дом-5, река18-а это получение числа 18