var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
Ответ дал: Гость
var
n,i,z: integer;
begin
readln(n);
for i: =1 to n do if n mod i=0 then inc(z,i);
writeln(z);
end.
Ответ дал: Гость
первый файл займет 2750/1054 =2,6 = 3 кластера(может быть только целое число кластеров).
второй файл займет 324000/1024 = 307,4 = 308 кластеров.
ответ: 3 + 308 кластеров
Ответ дал: Гость
первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета
Популярные вопросы