1) print ('s [2,7] =', s [2,7]) Error: TypeError
2) print ('s [5:] =', s [5: 1) Error: SyntaxError
3) print ('s [: 4] =', S [: 4]) Error: NameError
4) print ('s [: - 3] =', s [: - 3]) "информат"
Объяснение:
Что выведет программа в 1, 2 и 3 сам бог знает...
В первом случае предполагаю что хотели вывести 3 и 8 символ, но нельзя выводить их так.
Во втором нет закрывающей квадратной скобки.
В третьем откуда взялась переменная S??? Python не Pascal и различает регистр в названиях переменных.
В четвёртом. Число после ":" означает что берётся первые N элементов, а остальные отбрасываются. Знак "-" перед 3 означает что сначала строка переворачивается и обрезается.
информатика (действует минус) == акитамрофни (программа обрезает 3 знака) == тамрофни (и возвращает неперевёрнутую строку) = информат
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
writeln('введите числа последовательности. Окончанием ввода будет число 0');
i:=0;
n:=0;
repeat
i:=i+1;
n:=n+1;
read(a[i]);
write(' ');
until (a[i]=0) or (i>1000);
writeln;
k:=0;
writeln('Последовательность:');
for i:=1 to n-1 do
begin
write('a[',i,']=',a[i],' ');
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
k:=k+1;
end;
writeln('кол-во целых чётных чисел кратных 7 - ',k);
end.
Второй вариант : 1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var k,n: integer;
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
while n<>0 do
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
end;
writeln(k-1);
end.
3 ВАРИАНТ :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
lim1=30000;
lim2=1000;
var
a,kol,res:integer;
begin
kol:=0;
res:=0;
repeat
repeat
readln(a);
if abs(a)>lim1 then
writeln('Oshibka vvoda. |a|<=',lim1);
until abs(a)<=lim1;
if a<>0 then
begin
inc(kol);
if (a mod 2=0) and (a mod 7=0) then
inc(res);
end;
until (a=0) or (kol=lim2);
write(res);
end.
(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.