1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }
2) if k in [4..10] then a:=3*(k-2);
Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится
=B$1*$A2
как-то так
...............................................
Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4
Var k,i,n,a:integer;
begin
read(n);
while i<n do begin
read(a);
if (a mod 10=6) then k:=k+1; i:=i+1;
end;
writeln('Чисел, оканчивающихся на 6: ', k);<span>
end.</span>