Question

2)Дан фрагмент программы на языке паскаль, на вход которого поданы значения N=10 и M=2. Чему будет равно на выходе из фрагмента значение SUM? SUM:=0; K :=M-1;while K<N dobeginfor I(ай) := K-M+2 to K do SUM:=SUM+I;K:=K+M;end;for I:=K-M+2 to N-1 do SUM:=SUM+I;3)Программист Авсилий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17. Чему равен пароль Васи?4) Какой набор символов будет выведен в результате работы следующей программы?function f(x:string; a:byte) :string;beginif a<=3 thenf:=copy(x, l, a)elsef:=f(copy (x, 2, a), a-2;end;beginwriteln(f('abcdefghijklm',7));end.

Answer 1

Я уже тоже ришал весь кит, только на 2 ответ не помню.
3)10000-588(делятся на 17)-769(на 13)=8643