Vari, m, s, k: integer; beginfor i := 1 to 10 dobeginm := Random(-100, 100);writeln(m);end;writeln('here');if m > 0 thenbegins := 0;for k := m to m dos:=s+m;writeln(s);endend.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
